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PREFACE 



This publication is the reference manual for EDIT/3000, a subsystem of the 
Multiprogramming Executive III operating system (MPE III) used to create 
and manipulate ASCII files. 

The content of this publication is: 

Section I - introduces EDIT/3000. Discusses the concepts of editing files and 
explains the basic structure of EDIT/3000. A summary of all 
EDIT/3000 commands is included. 

Section II - explains how to operate EDIT/3000. Included are instructions ex- 
plaining how to initiate interactive sessions and batch jobs, and 
discussions of MPE and EDIT/3000 special controls. 

Section III - explains EDIT/3000 basic commands. Examples are provided 
which demonstrate the use of each command. 

Section IV - explains the use of EDIT/3000 advanced commands. Examples 
are provided for all advanced commands, and include instructions 
on creating library procedures which can be called by EDIT/3000 
to perform complex and reiterative editing functions. 

Section V - contains error messages and recovery procedures. 

Section VI - discusses customizing EDIT/3000 through the use of three in- 
terface procedures. 

Appendix A - contains a table of ASCII characters. 

Appendix B - contains a summary of EDIT/3000 commands. 

Appendix C - contains a WORK file recovery technique. 

Other publications which should be available for reference when using this 
manual are: 

MPE Intrinslcs Reference Manual (30000-90010) 
MPE Commands Reference Manual (30000-90009) 
FORTRAN Reference Manual (30000-90040) 
COBOL/3000 Reference Manual (32213-90001) 

For 3000 systems which do not use MPE III, refer to the following manuals: 

• MPE Intrinsics Reference Manual (30000-90087) 

• MPE Commands Reference Manual (30000-90088) 

• FORTRAN/SOOO Reference Manual (32102-90001) 
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INTRODUCING EDIT/3000 



SECTION 



M- WHAT IS EDIT/3000? 

EDIT/3000 is a subsystem of the HP 3000 Multiprogramming Executive III operating system (MPE III) that 
is used to create and manipulate ASCII files. 

Characters, strings of characters, or entire lines of characters can be inserted, deleted, replaced, modified, 
searched for, and otherwise manipulated, by using EDIT/3000 commands. 

The files to be edited can be source programs written in computer languages such as FORTRAN and COBOL, 
or text material such as letters, reports, or technical manuals. 

1-2. EDIT/3000 FEATURES 

With EDIT/3000, it is possible to 

Create and build a new file (called a WORK file) by entering conmiands and lines of text from the 
standard input device, or text can be entered from special disc files called the HOLD file and JOIN file. 

Copy the WORK file contents into a permanent file called the TEXT file. 

Call the TEXT file contents back into the WORK file for further additions and/or editing. 

Change all occurrences of a character string in the WORK file to another character string with one 
command. 

Delete characters and lines from the WORK file. 

Locate a string in the WORK file. 

Move and renumber portions of text from one location to another in the WORK file. 

Copy text from the WORK file into a HOLD file. 

Insert text into the WORK file from the standard input device or from the HOLD file. 

Add or insert all or a portion of an external file (called the JOIN file) to the WORK file. 

Display all or any portion of the WORK file on the standard output device or write it to any other 
specified file. 

Modify lines in the WORK file. 

Replace characters, strings of characters, or lines in the WORK file. 

Call external, user-written procedures to process text in the WORK file. 

Execute pre-stored EDIT/3000 commands from a user file (called a USE file). 

Use advanced commands to provide Boolean logic for conditional and repetitive editing. 
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1-3. EDIT/3000 EDITING MODES 

EDIT/3000 can be run in either of two modes: 

• Interactive session. In an interactive session, commands and text records normally are entered through 
an interactive terminal. Messages and other output (such as prompt characters) from EDIT/3000 are 
listed on the terminal. 

• Batch mode. In batch mode, commands and text records are supplied through a batch input medium such 
as punched cards or magnetic tape. Messages and output from EDIT/3000 are listed on the standard 
output device (usually a line printer). 

1-4. EDIT/3000 FILE DEFINITIONS 

Seven files are used by EDIT/3000, as discussed below. 

1-5. INPUT FILE 

The INPUT file normally is used to enter commands and text records to EDIT/3000. Generally this file is 

a terminal in interactive mode and a batch input device (such as a card reader) in batch mode. EDITIN is " 

EDIT/3000's formal designator for the input file. 

1-6. OUTPUT FILE 

EDrr/3000 normally transmits messages (and prompt characters in interactive sessions) to the OUTPUT file. 
Generally, this file is a terminal in interactive mode and a line printer in batch mode. EDITOUT is EDIT/ 
3000's formal designator for the output file. 

1-7. WORK FILE 

The WORK file contains the information to be modified. To minimize the possibility of a user acciden- 
tally destroying an only copy, EDIT/3000 operates only on the WORK file. Thus, when a file is created and text 
is added, or when an external file is copied into the EDIT/3000 subsystem for modification, the text is written 
into the WORK file and all modifications are performed on this file. At any time, you may save this file under a 
new file name and leave the old file in its previous state, or save this modified file and purge the old file. 

The size of the WORK file can be specified by you with a SET SIZE command (see Section III), or the size can be 
determined by EDrr/3000 by default. The default size of WORK file is determined as follows; 

1. If the TEXT file is on disc, its size is known and the WORK file is set to that size plus an allowance for 
expansion. (See the discussion of file size along with the SET SIZE command in paragraph 3-95.) 

2. If the TEXT file is on punched cards, magnetic tape, or any device other than disc, such that the size is 
not known to the system, or if the text is to be entered from the standard INPUT file, EDIT/3000 
accepts approximately 1,767 lines of text (unless the SET SIZE command is used to specify a different 
size). 

Note that only one quarter (4 extents) of the WORK file's disc space is initially allocated. The MPE File 
System searches for and allocates more extents as needed. 



1-2 



1-8. TEXT FILE 

The TEXT file is an external file which is brought into the EDIT/3000 subsystem (copied into the WORK file) 
with a TEXT command (see Section III). The contents of the TEXT file become the contents of the WORK file 
and all modifications then are performed on the WORK file. The WORK file can be saved with the present 
name of the TEXT file, in which case the modifications are incorporated and the previous version of the TEXT 
file is purged; or the WORK file can be saved under a new name and the previous version of the TEXT file will 
remain unchanged. 

1-9. JOIN FILE 

An external file which is brought into the EDIT/3000 subsystem (copied into the WORK file) with a JOIN 
command (see Section III) is called the JOIN file. All or any portion of a file may be copied into the WORK file 
with the JOIN command. The information can be added to the end of the current WORK file or it can be 
inserted into the WORK file at any point. For example, seven lines from a JOIN file could be inserted between 
lines 13 and 14 of the current WORK file. The contents of the existing JOIN file are not altered by the JOIN 
command. 

MO. HOLD FILE 

The HOLD file serves as a temporary storage file for EDIT/3000 and is generally used for holding interim 
information (for example, copying parts of the WORK file to the HOLD file and then adding or inserting the 
HOLD file into other places within the WORK file at some later time). 

EDIT/3000 sets the HOLD file to the same size as the WORK file. 

The HOLD file is created by EDIT/3000 when the first HOLD command (see Section III) is entered. When 
subsequent HOLD commands are entered, specifying that another part of the WORK file is to be held, the old 
HOLD file contents are replaced unless the APPEND parameter is added to the HOLD command, in which 
case the new contents are added to the end of the current HOLD file. 

1-1 L USE FILE 

The USE file is an external user file containing EDIT/3000 commands (and, optionally, text records) which is 
called with a USE command (see Section HI). 

When a USE command is entered, EDIT/3000 reads all commands from the USE file. Any messages from 
EDIT/3000 are sent to the OUTPUT file, as are requests for text records. Text records then are entered 
through the INPUT file. (It also is possible, however, to specify that all information, including text records, 
will be found in the USE file.) 

USE files may be nested (for example, a USE file may call another USE file) to perform complicated editing 
functions. 

Note: Since files are constantly being created and copied while using 
EDIT/3000, it is possible that the File System might not be able to 
allocate the disc space needed for a particular operation. There are 
two possible reasons why this might occur: (1) the system has used 
up all its disc space, or (2) the disc space allowed for the file's group 
or account is used up. In the latter case, you will want to either ask 
users to store and purge files in that group or account, or ask your 
system manager to increase the disc space limits set for that group or 
account. 
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1-12. EDIT/3000 COMMANDS 

A summary of EDIT/3000 commands is presented in table 1-1. Included is the command name, the purpose of 
the command, and the page number in this manual where a complete description of the command can be found. 

Table 1-1. EDIT/3000 Commands 



COMMAND 
NAME 


PURPOSE 


PAGE 
NO. 


ADD 


Enters text into the WORK file from the standard input device and/or from the 
HOLD fite. 


3-6 


BEGIN 


Used as the first expression in a BEGIN-END pair. 


4-7 


CHANGE 


Changes existing contents of the WORK file. 


3-10 


COPY 


Copies text from one location to another in the WORK file. 


3-14 


DELETE 


Deletes characters and/or lines from the WORK file. 


3-17 


END 


Terminates EDIT/3000 operation. Or. when used with a matching BEGIN 
command, terminates a BEGIN-END pair. 


3-20 


FIND 


Finds a specific position or a character string in the WORK file. 


3-21 


GATHER 


Moves portions of text from one location to another in the 
WORK file and renumbers the lines. (The text is deleted from 
its original location.) Also can be used to renumber all lines in 
the WORK file. 


3-23 


HOLD 


Copies pari or ail of the WORK file into the HOLD file for subsequent 
re-copying into one or more locations of the WORK file. 


3-27 


INSERT 


Inserts text into the WORK file from the INPUT file or from the HOLD 
file at a specific position. 


3-29 


JOIN 


Copies all or part of the JOIN file to the WORK file. 


3-35 


KEEP 


Saves all or part of the WORK file into an MPE/3000 file. 


3-39 


LIST 


Lists all or part of the WORK file to the OUTPUT file or to any other 
specified file. 


3-47 


MODIFY 


Modifies text in the WORK file using one or more subcommands 
(Delete. Insert, and Replace) of this command. 


3-51 


NOT 


Reverses a flag after executing the command immediately following the 
NOT command. 


4-12 


OR 


Sets the flag true, or skips the OR command and the command immediately fol- 
lowing it if the flag already is true. 


4-16 


PROCEDURE 


Calls and executes a procedure previously written and stored in a segmented 
library (SL) file. 


4-24 


Q 


Displays a user-defined message at the terminal. 


3-54 


REPLACE 


Replaces one or more lines in the WORK file with new text from the standard 
input fife or from the HOLD file. 


3-55 


SET 


Alters EDIT/3000 default operating criteria. 


3-59 
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Table 1-1. EDIT/3000 Commands (Continued) 



COMMAND 
NAME 


PURPOSE 


PAGE 
NO. 


TEXT 
USE 

VERIFY 

WHILE 
XPLAIN 

YES 

Z:: = 

or 

2:: 


Copies the contents of a TEXT file into the WORK file, deleting the current 
WORK file contents. 

Instructs EDIT/3000 to receive commands from the USE file and to send 
messages to the OUTPUT file and. generally, to expect input from the INPUT 
file. 

Reports the current EDIT/3000 operating conditions declared in a SET com- 
mand (or the default conditions not declared in a SET command). 

Causes EDtT/3000 to repeat commands in a pre-defined command block. 

Lists an explanation of all or part of the EDIT/3000 commands. 

Sets a flag for a WHILE command block true. 

Assigns the value of a character string variable to Z:: = 

and uses that value vi/henever 2:: appears as a part or all of a command. 

Instructs EDIT/3000 to pass the rest of the record to MPE. . 


3-67 
3-75 

3-79 

4-2 
3S\ 
4-20 
3-83 

3-86 
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OPERATING EDIT/3000 



SECTION 



II 



EDIT/3000 can be run during either a batch job or an interactive session. Initiation of batch jobs and 
interactive sessions is covered in this section to the extent necessary for you to operate EDIT/3000; however, 
more extensive descriptions of these procedures can be found in the MPE Commands Reference Manual, 

In addition to information regarding the initiation of jobs and sessions and the operation of EDIT/3000, 
MPE and EDIT/3000 special controls are described. These special controls allow you to correct typing errors 
when information is being entered from a terminal,or to temporarily suspend EDIT/3000 operation. 

EDIT/3000 commands are not covered in this section. See Sections III and IV for descriptions of these 
commands. 
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INITIATING AN INTERACTIVE SESSION 



To initiate an interactive session 

1. Turn the terminal on. 

2. Dial the HP 3000 computer system (if the terminal is connected over switched telephone lines). 

3. Press the RETURN key (or equivalent) to produce a prompt character (:). 

4. Enter the MPE/3000 :HELLO command. 

The : HELLO command has the form 

:HELLO [sessionname, ] usernamel/userpass] Mcctname [/acctpass] 
[^oupname [/grouppass] ] 

[iTERM=termtype] 
[(TJME=cpu8ecs] 



[;PRI 



(es) 



J 



Note: Throughout this manual, op- 
tional parameters are shown 
enclosed in brackets [ ]. 
Required parameters are shown 
enclosed in braces { ) . 



;INPRI= inputprio ri ty 

I ] 

;HIPRI 



where 



sessionname 

is an arbitrary name used in conjunction with usemame parameters to form a session identity. The para- 
meter contains from 1 to 8 alphanumeric characters, beginning with a letter. Default: no session name is 
assigned. 
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usemame 

is the user's name, established by the Account Manager, which allows you to log on under this account. 
The parameter contains from 1 to 8 alphanumeric characters, beginning with a letter. (REQUIRED PARA- 
METER) 

userpass 

is the user's password, optionally assigned by the Account Manager. It contains from 1 to 8 alphanumeric 

characters, beginning with a letter. 

acctname 

is the name of the account, as established by the Account Manager. It contains from 1 to 8 alphanumeric 

characters, beginning with a letter. The acctname parameter must be preceded by a period. (REQUIRED 

PARAMETER) 

acctpass 

is the account password, optionally assigned by the System Manager. It contains from 1 to 8 alphanumeric 

characters, beginning with a letter. 

groupname 

is the name of the group to be used for the local file domain and CPU time charges. The parameter growp- 
name is established by the Account Manager and contains from 1 to 8 alphanumeric characters, beginning 
with a letter. Default: the home group if one is assigned by the Account Manager. (Optional if the user has 
a home group required if a home group is not assigned,) 

grouppass 

is the group password, optionally assigned by the Account Manager. It contains from 1 to 8 alphanimieric 
characters, beginning with a letter. (Required if assigned and the user is logging on under other than the 
home group, not required if the user is logging on under the home group.) 

termtype 

is the type of terminal used for input. MPE uses this parameter to determine device-dependent character- 
istics such as delay factors for carriage returns. This parameter must be a number from to 16; the number 
meanings are shown below: 

= HP 2749B ASR 33 EIA-compatible Terminal (10 characters per second (cps)). 

1 = ASR 37 Teleprinter Terminal with Paper Tape Reader/Punch (10 cps). 

2 = ASR 35 EIA-compatible Terminal (10 cps), 

3 = Execuport 300 Data Communications Transceiver Terminal (10, 15, 30 cps)» 

4 = HP 2600A or DATAPOINT 3300 Keyboard Display Terminal (10-240 cps), 

5 = Memorex 1240 Communication Terminal (10, 15, 30, 60 cps). Note: must have 

even parity-checking option. 

6 = HP 2762A/B (GE Terminet 300 or 1200) or Data Communications Terminal Model 

B (10, 15, 30, 120 cps) with Paper Tape Reader/Punch, Option 2. Note: This 
terminal must be equipped for ECHO PLEX. 

9 = HP 2615A Terminal (Beehive MiniBee) (10-240 cps). 

10 = HP 2640A/B, HP 2641A, HP 2644A or HP 2645A Interactive Display Terminal 

(character mode or full program control of block mode transmission) (10-240 cps). 

11 = HP 2640A/B, HP 2641 A, HP 2644A or HP 2645 A Interactive Display Terminal 

(block mode without program control) (10-240 cps). 

12 = HP 264 5K Katakana/Roman Data Terminal. 

13 = Message switching network or other computer. 
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14 = Multipoint Terminal. 

15 = HP 2636 A Printing Terminal. 8-bit protocol (for second character set). 

16 = HP 2635A Printing Terminal. 7-bit protocol (standard character set). 

If the termtype parameter is omitted, a default is assigned according to the termtype configured for that 
input-output port. Default: For hardwired terminals, the default is determined by the System Supervisor 
during system configuration. There is no default for terminals that are not hardwired. (Required parameter 
to insure correct listings if the terminal is not hardwired or if the terminal is not the default termtype.) 

cpusecs 

is the maximum CPU time that a session can use, entered in seconds; it must be a value from 1 to 32767. 
When the limit is reached, the session is aborted. To specify no limit, enter a question mark (?) or omit the 
parameter. Default: no limit. 

BS,CS,DS,ES 

is the execution priority class. BS is the highest priority, ES is the lowest. If a priority is specified that 
exceeds the highest permitted by the system for the account or user name, MPE assigns the highest pri- 
ority possible below BS. Default: CS, 

Note: DS and ES are used primarily for batch jobs; their use for sessions 

is discouraged. 
inputpriority 

is the relative input priority used in checking against access restrictions imposed by the jobfence, if one 

exists; it takes effect at log-on time. This parameter must be a value from 1 (lowest priority) to 13 (highest 

priority). If a value is specified that is less than or equal to the current jobfence set by the Console Operator, 

the session is denied access. Default: 8. 

mPRi 

is the request for maximum session-selection input priority, causing the session to be scheduled regardless 
of current jobfence or execution limit for sessions. This parameter can be specified only by users with 
System Manager or System Supervisor Capability. Default: the curteixt jobfence and execution limit. 

For a more detailed description of the :HELLO command, see the MPE Commands Reference Manual. 

An example of the :HELLO command, using only the (required) parameters username.acctname , is as follows: 
:HELLO MANAGER. SCR 

HP3000 / MPE III B.01.02. TUE, JUN 3, 1980, 1:49 PM 



(Displayed on the terminal by MPE/3000) 

Note that the acctname parameter is preceded by a period. This is the required form for this parameter (see the 
form example). 

2-2. TERMINATING AN INTERACTIVE SESSION 

To terminate an interactive session, use the MPE/3000 :BYE command. Following this, MPE/3000 outputs 
the number of seconds of central processor unit (CPU) time used, the number of minutes connected, and 
the date and time. 

For example, 

:BYE 

CPU=4. C0NNECT=1- TUE, JUN Z, 1980, 1:50 PM 



(Displayed on the terminal by MPE/3000) 
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2-3. INITIATING A BATCH JOB 

The MPE/3000 : JOB command is used to initiate a batch job. Note that the colon must be supplied in the first 
position of a command record in batch mode (MPE/3000 prompts with the colon in interactive mode). 

The form of the : JOB command is 

:JOB [jobname,] usemamel/userpass] .acctnamel/acctpaaa] 
[^oupname [/grouppass] ] 

[;TIME=cpufiecs] 




t^^^= IDS! 



\LSFRl-inputpriority ft 

[ ] 

;HIPRI 

[;RESTART] 

[;OUTCLASS= [device] [,outputpriority] [yHumcopies] ] 



where 



jobname 

is an arbitrary name used with username and acctname parameters to form a job identity. The parameter 

contains from 1 to 8 alphanumeric characters, beginning with a letter. Default : no job name is assigned. 



Are the same as described for the :H£LLO command. 
See paragraph 2-1. 



username 

userpass 

acctname 

acctpass 

groupname 

grouppass ' 

cpusecs 

is the maximum CPU time allowed a job, in seconds; it must be a value from 1 to 32767. When this limit is 

reached, the job is aborted. To specify no limit, enter a question mark (?) or omit this limit. Default: no 

limit. 

BS,CS,DS,ES 

is the execution priority class. BS is the highest priority, ES is the lowest. If a priority is specified that 
exceeds the highest permitted by the system, for the accoimt or user name, MPE assigns the hi^est priority 
possible below BS. Default: DS, unless CS is specified by the System Supervisor with the : JOBPRI command. 

inputpriority 

is the relative input priority used in checking against access restrictions imposed by jo&fence, if one exists; 
it takes effect when a job is entered. This parameter must be a value from 1 (lowest priority) to 13 (highest 
priority). If a value is less than or equal to the job fence set by the Console Operator, the job is deferred. 
Default: S. 
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HIPRI 

is the request for maximum input priority, causing the job to be scheduled regardless of current job fence or 
execution limit for jobs; it overrides inputpriority. This parameter can be specified only if you have System 
Manager or System Supervisor Capability. Default: 8 or inputpriority if this parameter is specified. 

RESTART 

is the request to restart a spooled job interrupted by system termination /restart. This parameter takes effect 
automatically when the system is subsequently restarted with the WARMSTART option. 

This parameter applies only to jobs initiated on spooled input devices, and is ignored for other jobs. Default: 
spooled jobs are not restarted after system termination /restart. 

device 

is the class name or logical device number of the device to receive the listing output. It cannot specify a 

magnetic tape unit. Default: $STDLIST. 

Note; A non-sharable device (ND) file access attribute is required in order 
to use this parameter. 

outputpriority 

is the output priority for the job list file, if destined for a spooled line printer or card punch. It is used to 
select the next spooled device file (on disc) for output, among all those contending for a specific printer 
or punch. The parameter must be a value from 1 (lowest priority) to 13 (highest priority). Note that when 
outputpriority is 1, output always is deferred. Thus, an outputpriority of 2 or greater should be used for 
output written from disc. 

This parameter applies only to output destined for spooled output devices, and is ignored for other output. 
Default: 8. 

numcopies 

is the number of copies of a job listing to be produced. This parameter applies only when listing is directed 

to a spooled device, and is ignored in other cases. It must be a value from 1 to 255. Default: 1. 

For a more detailed description of the : JOB command, see the MPE Commands Reference Manual. 

An example of the : JOB command, using only the (required) parameters user name, acctname is as follows: 

:JOB JOE-VOLLWER^PUB 

PRIORITY = DS; INPRI = 8; TIME = UNLIMITED SECONDS 

JOB NUMBER = #J2 

TUE^ JUN 3, 1980, 1:53 PM 

HP30Q0 / MPE III B.01.DC 

(Printed on the standard job listing device by MPE/3000) 

Note that the acctname parameter is preceded by a period. This is the required form for this parameter (see the 
form example). Also note that in a batch job, MPE/3000 prints the groupname (PUB in the example) after the 
acctname, whether or not this parameter was included in the : JOB command (it was not included in the : JOB 
card in the example). 
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2-4. TERMINATING A BATCH JOB 

The MPE :EOJ command is used to terminate a batch job. MPE displays the number of seconds of CPU 
time used, the number of minutes the job was active, and the date and time. 

For example, 

:EOJ 

CPU SEC. = 1- ELAPSED WIN. = 1. TUE, JUN 3^ 1980, 1:53 PM 



(Printed on the standard job listing device by MPE) 



2-5. RUNNING EDIT/3000 IN AN INTERACTIVE SESSION 

To run EDIT/3000 in an interactive session, initiate the session with the MPE :HELLO command, then use 
the MPE : EDITOR command as shown in figure 2-1. 



I 



:HELLO MANAGER-SCR 

•=^3000 / MPE III 8.01.02. TUE, JUN 3, 1980, 1:49 PM 



:EDIT0R 

HP32201A.7-08 EDIT/3000 TUE, JUN 3, 1980, 11:28 AM 

(C) HEWLETT-PACKARD CO- 1980 

/ADD 

1 THIS IS THE FIRST LINE OF THE WORK FILE 

2 (A NEW FILE IN THIo EXAMPLE) 

3 // 

/LIST ALL 

1 THIS IS THE FIRST LINE OF THE WORK FILE 

2 (A NEW FILE IN THIS EXAMPLE) 
/END 

IF IT IS OK TO CLEAR RESPOND "YES" 
CLEAR? YES 

END OF SUBSYSTEM 



Figure 2-1. Running EDIT/3000 in an Interactive Session 
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Once accessed, EDIT/3000 displays a slash (/) as a prompt character and waits for a command. The ADD 
command causes EDIT/3000 to prompt for input by printing a line number. Input then is entered from the 
terminal. To terminate the ADD command, two slashes may be used as in the example, or CONTROL Y may 
be used (press and hold CONTROL (or equivalent), and press Y). EDIT/3000 responds by displaying . . . , then 
displays another prompt for another command. The LIST ALL command causes EDIT/3000 to copy all records 
in the WORK file to the OUTPUT file (the standard list device — the terminal in this case — unless specified 
otherwise). The END command terminates EDIT/3000 operation. Note that EDIT/3000 asks if it is OK to clear 
(the WORK file). If the response is YES (or Y), EDIT/3000 operation terminates and MPE/3000 prints the 
message END OF SUBSYSTEM. If the response is other than YES (or Y), EDIT/SOOO displays a message 
stating that the clear is not confirmed and then displays a prompt character for another command. 

If the contents of the WORK file have not been saved with a KEEP command, the WORK file contents will be 
lost when a CLEAR is confirmed. 

See Sections III and IV for descriptions of EDIT/3000 commands. 



2-6. RUNNING EDIT/3000 IN BATCH MODE 

In batch mode, MPE/3000 and EDIT/3000 commands (and text if desired) are included with the :JOB 
command. Unlike sessions, jobs require that the colon prompt character be included with MPE/3000 com- 
mands. EDIT/3000 commands in batch mode, however, need not be preceded with the EDIT/3000 prompt 
character (/). If prompt characters are included with EDIT/3000 commands in batch mode, they will be listed 
(two slashes will be printed by MPE/3000 instead of just one) on the standard list device but ignored otherwise 
by EDIT/3000. 

An example of running EDIT/3000 in batch mode is shown in figure 2-2. (This job includes the same editing 
operations as illustrated for the session in figure 2-1.) 

A card reader was used as the input device for the job shown in figure 2-2 and the cards submitted with the job 
were as follows; 

:JOB MANAGER.SCR 

:EDITOR 

ADD 

THIS IS THE FIRST LINE OF THE WORK FILE 

(THE DATA WAS ENTERED FROM CARDS) 

// (This card with the two slashes was necessary to terminate the ADD command) 

LIST ALL 

END 

:EOJ 



Note that the colon prompt characters were included as the first character with the MPE/3000 :JOB, :EDITOR, 
and :EOJ commands but slash prompt characters were not included with the EDIT/3000 ADD, LIST, and END 
commands. EDIT/3000 listed the slash prompt characters on the standard list device (and would have output 
two slashes if each command had been preceded by a slash). Also note that EDIT/3000 listed the line numbers 
(1 and 2) even though these (like the slashes) had not been included in the data. If line numbers had been 
included in the data, they would have been considered to be the first characters of the record. 
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:JOB JOE.VOLLMER,PUB 

PRIORITY = DS; INPRI = 8; TIME = UNLIMITED SECONDS 

JOB NUMBER = #J2 

TUE, JUN 3, 1980, 1 :53 PM 

HP3000 / MPE III B,01 .DC 



EDITOR 



HP32201A-4.02 EDIT/3000 WED, JUL 30, 1975, 8:39 AM 
/ADD 

1 THIS IS THE FIRST LINE OF THE WORK FILE 

2 (THE DATA WAS ENTERED FROM CARDS) 



/LIST ALL 

1 THIS IS THE FIRST LINE OF THE WORK FILE 

2 (THE DATA WAS ENTERED FROM CARDS) 
/END 



I 



END OF SUBSYSTEM 
:EOJ 
CPU SEC. = 4. ELAPSED MIN. = 1, TUE, JUN 3, 1980, 1:53 PM 



Figure 2-2. Running EDIT/3000 in Batch Mode 



Note: EDITOR input files processed in batch mode do not need a semicolon ( ;) at the 
end of each command. Semicolons may still be used to ignore sequence num- 
bers, althou^ this practice is not recommended. 



2-8 



2-7. MPE/3000 and EDIT/3000 SPECIAL CONTROLS 

In an interactive session, the following MPE/3000 special controls allow you to correct typing errors, temporar- 
ily suspend EDIT/3000 operation, and type continuation lines. 

CONTROL X 

To delete a line that you have typed in from the terminal (and before you press the RETURN key), type 
CONTROL X or the equivalent (press and hold CONTROL or its equivalent and press X). MPE/3000 
prints !!! and returns the carriage or cursor. Now you can type the corrected line. 

For example, 

CONTROL X entered here 



V 



EDI TO^ 

CONTROL H 

To erase the last character typed, type CONTROL H or its equivalent (press and hold CONTROL or its 
equivalent and press H). MPE/3000 prints an indication of the erasure (such as a back slash, or a 
backspace and a back slash, depending on the terminal type). It is now possible to type the correct 
character. To erase more than one character, type CONTROL H once for each character to be erased. 

An example of CONTROL H is as follows: 

CONTROL H entered here 




i n LE out; sawwe 



The corrected line is entered into the computer as: 



:FILE QtTt; qAVE 



BREAK 

To suspend EDIT/3000 operation temporarily, press the BREAK key or its equivalent. Control is 
passed to MPE/3000, which prints a colon prompt cheiracter and waits for a command. When you are 
ready to resume EDIT/3000 operation, type :RESUME. MPE/3000 prints the message READ PEND- 
ING, Now, enter data or commands to resume EDIT/3000 operation. 

An example appears in figure 2-3. Here, the user has suspended EDIT/3000 operation to display files to 
which he may have access by entering the :LISTF command. 

See also the : command, described in Section III, which allows you to enter certain system com- 
mands from within EDIT/3000. 

LINE FEED 

To continue any input line to the next line, press LINE FEED or its equivalent. MPE/3000 will space 
one line and you can continue to type. (Note: This is most useful when editing text lines which exceed 
terminal line length.) 
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: EDITOR 

HP32201A.7.08 EDIT/3000 TUE, JUN 3, 1980, 11:28 AM 

(C) HEWLETT-PACKARD CO. 1980 

/ADD 

1 ABC 

2 DEF 

3 -^ BREAK KEY PRESSED 

:LISTF 



FILENAME 



BATCH1 BATCH2 BATCH3 EDIT3 EDITPROC FTRANI 

FTRAN10 FTRAN11 FTRAN12 FTRANI 3 FTRAN14 FTRAN15 

FTRAM6 FTRAN17 FTRAN18 FTRAM9 FTRAN2 FTRAN20 

FTRAN21 FTRAN22 FTRAN23 FTRAN24 FTRAN25 FTRAN26 

FTRAN27 FTRAN28 FTRAN29 FTRAN3 FTRAN30 FTRAN31 

FTRAN32 FTRAN33 FTRAN34 FTRAN35 FTRAN36 FTRAN37 

FTRAN38 FTRAN39 FTRANA FTRAN40 FTRAN41 FTRAN42 

FTRAN43 FTRAN44 FTRAN5 FTRAN6 FTRAN7 FTRAN8 

FTRAN9 JUST K1751515 NAMES SL TRACE1 

TRACE2 TRACE3 XMPLi XMPL2 XMPL3 
:RESUME 

READ PENDING -. DISPLAYED BY MPE/ 3000 

GHI 

4 // 
■ ■ ■ 
/LIST ALL 

1 ABC 

2 DEF 

3 GHI 
/END 

IF IT IS OK TO CLEAR RESPOND "YES" 
CLEAR? Y 
END OF SUBSYSTEM 



I 



Figure 2-3. Using the BREAK Key 



If the terminal being used is a device not normally furnished by Hewlett-Packard, the keys used for 
CONTROL X, CONTROL H, BREAK, and LINE FEED may have other labels. See the MPE Commands 
Reference Manual for terminal characteristics. 
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In addition to the MPE special controls described above, CONTROL Y is a special control provided by 
EDIT/3000. It can be used during EDIT/3000 operation only and is useful solely in interactive sessions. 

CONTROL Y 

To terminate EDIT/3000 command execution during an interactive session on HP terminals, press 
CONTROL Y (hold control key and press Y) or its equivalent. EDIT/3000 displays . . . and a slash 
to prompt for the next command. 

An example of CONTROL Y usage is shown in figure 2-4. 



:EDIT0R 

HP32201A.7.08 EDIT/3000 TLIE, JUN 3, 1980, 11:28 AM 

(C) HEWLETT-PACKARD CO. 1980 

/ADD 

1 ABCDE 

2 FGHIJ ^^vr™^r V . ... 

^ ^ CONTROL Y entered here 

.J « ■ ■ 

/END 

IF IT IS OK TO CLEAR RESPOND "YES" 

CLEAR? YES 



END OF SUBSYSTEM 



Figure 2-4, Using CONTROL Y 
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2-8. ENTERING EDiT/3000 COMMANDS 



To use more than one command in an EDIT/3000 command record, follow each command (except the 
last one) with a semicolon, as follows: 

ADD;LIST ALL;END 

EDIT/3000 will execute the commands in the order in which they are given. 

"&" 

To continue a command or text entry from one record to the following record, use an ampersand (&) as 

the last character in the record to be continued. 

Examples are shown in figure 2-5. 

Note: If it is desired that the & be the last character in a record, instead of being 
interpreted as a continuation character, enter a blank character after the & 
(and before pressing RETURN in a session.) 

The maximum length for a command string is 256 characters. 

A comment may be added as part of a command string, but it may not be embedded in the command. 
It may appear before a command or follow it after a semicolon. A comment must begin with two 
adjacent less-than signs («) and end with two adjacent greater-than signs (»). For example, 

/FIND FIRST; « MOVE POINTER TO BEGINNING OF FILE. » 

LINEl 

"(1) 



: EDITOR 

HP32201A.7.08 EDIT/3000 TUE, JUN 3, 1980, 11:28 AM 
(C) HEWLETT-PACKARD CO- 1980 
/ADD;LIST ALL;& 
/END 

1 THIS LINE AND THE NEXT LINE 8 
ARE BOTH PART OF RECORD 1 

2 THIS IS RECORD 2 

3 // 
■ ■ « 

1 THIS LINE AND THE NEXT LINE ARE BOTH PART OF RECORD 1 

2 THIS IS RECORD 2 

IF IT IS OK TO CLEAR RESPOND "YES" 
CLEAR? YES 

END OF SUBSYSTEM 



Figure 2-5. Using ; and & When Entering EDIT/3000 Commands. 
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2-9. EDIT/3000 SPECIAL ENTRY POINT 

An entry point to EDIT/3000 is availalbe that will automatically text in a file before the first prompt (/) is 
displayed and wiU keep the file when EXIT is typed. (See Section III for a description of the TEXT and 
KEEP commands.) 

In order to specify the file desired, first enter the MPE :FILE command in the form :FILE EDTTEXT= 
filename. Next run EDIT/3000 by using the MPE :RUN command, with BASICENTRY specified for the 
entry point parameter. (See the MPE Commands Reference Manual for an explanation of the MPE :FILE 
and :RUN commands.) An example is shown in figure 2-6, 

The MPE :FILE command must be used even if the filename is EDTTEXT itself. In addition, when this 
special entry is used, the TEXT and KEEP commands are disallowed since they are executed automatically 
to the filename specified in the MPE :FILE command. If the texted-in file was unnumbered, it will be kept 
unnumbered. 



FILE EDTTEXT=AFILE 

RUN EDITOR. PUB-SYS, BASICENTRY 



HP32201A.7-02 EDIT/3000 MON, JUL 31, 1978, 4:36 PM 
(C) HEWLETT-PACKARD CO. 1978 
/LIST ALL 

1 LINE ONE OF AFILE 

2 LINE TWO OF AFILE 

3 LINE THREE OF AFILE 

4 LINE FOUR OF AFILE 

5 LINE FIVE OF AFILE 
/ADD 

6 LAST LINE OF AFILE 

7 // 

/END 
END OF SUBSYSTEM 



Figure 2-6. Using the BASICENTRY entry point to EDIT/3000 



A simple User Defined Command could be created to facilitate initiating EDIT/3000 with this entry point. 
For example: 

EDFl 

OPTION LIST 

FILEEDTTEXT=!F1 

RUN EDITOR.PUB,SYS,BASICENTRY 

See Section IX of the MPE Commands Reference Manual for an explanation of creating and using User 
Defined Commands. 
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EDIT/3000 COMMANDS 



SECTION 



EDIT/3000 is controlled by commands which specify the type of operation performed, such as adding text (ADD 
command), or listing the contents of the WORK file (LIST command). 

In batch mode, commands are entered as records folJowing the MPE/3000 :EDITOR command; in interactive 
session, EDIT/3000 displays a prompt character (/) after it begins execution and the commands are entered 
from the terminal. 



3-1. DEFINITION OF TERMS 

Terms used in describing EDIT/3000 commands are described in the following paragraphs. 

3-2, POSITION 

A position describes the location in the WORK file of 

• A line. 

• A column in a line. 

• A string. 

• The WORK file pointer (EDIT/3000 monitors the edit cycle to determine where in the work file any 
modifications will occur). See paragraph 3-7. 

3-3. RANGE 

A range expression in a command informs EDIT/3000 which part of the WORK file is affected by the command. 
A range expression can consist of only one position or it can consist of all characters between and including two 
positions. 

If two positions are declared as a range, the first position must sequentially precede the second position. A 
slash separates the two positions. A range list consists of several ranges, separated by commas. For example, 
7/10,50,100/200 is a range list that includes lines 7 through 10, line 50, and lines 100 through 200. A null 
range in a range list is indicated by two commas. If ALL is specified as the range in a command, the range 
includes all text currently in the WORK file. 

3-4, UNE 

A line refers to a record in the WORK file. Each line has a unique number that indicates its position. A line 
number is of the form nnnnn.nnn. For example, 10000.001. 
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3-5. COLUMN 

Each line of the WORK file has a predefined number of columns as defined either by the SET LENGTH 
command or by the EDIT/3000 subsystem default of 72 characters per line. If text is entered beyond the 
right margin (default : column 72), a warning message is displayed. 

A column position in a range expression specifies a particular column in a line of the WORK file. 

3-6. STRING 

A string refers to a string of characters enclosed within a pair of special (non-alphanumeric) characters used 
as delimiters. Dehmiters may be any of these special (non-alphanumeric) characters except apostrophes ('), 
commas (J, semicolons (;), periods (.), parentheses, and slashes (/). It is recommended that #,+,-, and = 
should not be used as string delimiters when advanced commands such as BEGIN, END, WHILE, OR, or 
NOT are used. A null string is represented by two consecutive delimiters, for example, '*". 

Note: Whenever a character is used as a delimiter, it is important that it does not 
appear in the string. 

Nonprinting characters can appear outside the string, if represented by their decimal numeric equivalent (in 
ASCII code) and preceded by apostrophes (*). Thus the string "EDIT/3000" '13 10 represents the charac- 
ters EDIT/3000, a carriage return (13), and linefeed (10). ASCII characters and their decimal representa- 
tions are shown in Appendix B. 

Note: Blanks beyond the last non-blank character in a line are not recognized as 
part of a string. 

3-7. COMMAND DESCRIPTIONS 

To help clarify the command descriptions presented in this manual, the following rules are observed: 

• Optional command spelling and parameters in the form shown for a command are denoted by being 
enclosed in brackets [ ]. 

• Required parameters for a command are shown enclosed in braces { }. If two or more parameters are 
enclosed within the same set of braces, as, for example, 

Ioldstring \ 
\ 
colnum ] 

then one (and only one) of the parameters must be specified. 

The following common items apply to all EDIT/3000 commands: 

• Command names may be entered using uppercase or lowercase letters. For example, the ADD command 
can be entered as add. 

• The first letter of a command name may be used instead of the complete command name, except in 
the case of the COPY command, which requires CO to prevent conflict with C[HANGE] . For example, 
you may use A (or a) for ADD, L (or L) for LIST. Command parameters, however, must he spelled 
out in fully unless specified otherwise in the command description. For example, you can use A, 
HOLD, NOW to abbreviate the ADD command, but you may not use A, H, N, because those parameters 
may not be abbreviated. 

• Blank characters are denoted by the letter b where necessary for clarity. 
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• An asterisk i* ) can be used with some commands to signify the current location of the EDIT/3000 pointer. 
(This pointer is set and incremented by EDIT/3000 to monitor the edit cycle and to show where in the 
WORK file any change requested at this time will begin.) For example, a LIST * command immediately 
following an ADD command will list the last record entered with the ADD command. 

• The letter Q (to specify QUIET, or no prompting) may not be separated from the command name with a 
blank. 

Command descriptions are presented in alphabetical order. The advanced commands BEGIN, NOT, OR, 
PROCEDURE, WHILE, and YES are not included in this section. See Section IV for these commands. 

Parameters used in the command descriptions have the same meanings wherever they appear. These mean- 
ings are described in the following paragraphs. 

Note: For ease of reference (and so that you do not have to keep turning back 
to these pages), abbreviated parameter descriptions are provided on page 
3-77 at the end of this section. 

colnum 

any integer from column number 1 through the column number established by the SET RIGHT and 

SET LENGTH = colnum options in effect. 

filename 

the MPE/3000 file name of any file that you can access. See the MPE Commands Reference Manual for 
a discussion of files. A file equation may be back-referenced by placing an asterisk in front of 
the file designator. 

increment 

the value by which line numbers are incremented. The value is from .001 through 99999.999 when 
SET FORMAT = DEFAULT or from .001 through 999.999 when SET FORMAT = COBOL. How- 
ever, the line 99999.999 cannot contain any text when FORMAT = DEFAULT is in effect and the 
line 999.999 cannot contain text if FORMAT = COBOL. 

integer 

an integer in the range from 1 through 99999 when SET FORMAT = DEFAULT or from 1 through 

999 when SET FORMAT = COBOL. 

limit 

an integer from 1 through 9999. 

linenumher 

the value assigned to line numbers. The value is from .001 through 99999.999 when SET FORMAT = 
DEFAULT or from .001 through 999.999 when SET FORMAT = COBOL. As noted above, the line 
99999.999 or 999.999, as applicable, cannot contain any text. 

newstring 

a character string that replaces oldstring. 

oldstring 

a character string to be replaced in the WORK file. 
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position 

position is specified in an EDIT/3000 command as follows 



36 
36(10) 

36(+10) 

36+10 

36-10 

36 (FIRST) 

36(FIRST +6) 

36(LAST) 
36(LAST-6) 

36(RIGHT -2) 
FIRST 
LAST 
FIRST +10 
LAST -10 

"ARRAY"(+5) 
*(LAST) 
LAST(LAST -5) 
"AND''(2) 



line 36. 

column number 10 in line 36. This represents the absolute column num- 
ber 10. Absolute column numbers are enclosed in parentheses and do not 
include a sign. 

the 11th (not 10th) non-blank character in line 36. This represents the 
10th non-blank position after column 1, or the relative column number 
10 which is the* 11th non-blank column in line 36. Relative column 
numbers are enclosed in parentheses and include a sign. 

the 10th line after line 36. 

the 10th line before line 36. 

the first non-blank character in line 36. 

the sixth character in line 36, starting with the first non-blank character 
in line 36. 

the last non-bl£ink character in line 36. 

the sixth to last character in line 36, starting with the last non-blank 
character in line 36. 

the position in line 36 which is two columns before the right margin. 

first line. 

last line. 

the 10th line after the first line. 

the 10th line before the last line. 

the 15th non-blank character after the first character in ARRAY. 

the last non-blank character in the current line. 

the fifth to last non-blank character in the last line. 

column number 2 of the next line that contains the string "AND.'' 



range 

range may reference: 1) a single position in a record, 2) a continuous string of positions, 3) a sii^e 

record (line), 4) a continuous string of records, 5) a character, or 6) a string of characters. For example, 

36(10) a range of column 10 in line 36 only. 

36/45 lines 36 through 45. 

36(10)/45(9) a range from column 10 in line 36 through column 9 in line 45, 

36(+10)/45(9) a range from the 11th non-blank character in line 36 through the 9th 

column in line 45, 

36+10/65 -9 a range from the 10th line after line 36 through the 9th line before line 

65. 

5+3(15)/23 -6(45) a range from column 15 of the 3rd line after line 5 through column 45 
of the 6th line before line 23. 



t 



16 



a range of line 16 only. 
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ALL all lines in the WORK file. 

"A" a range of the character A only. 

"ALL" a range of the string ALL only. 

"ARE'* a range of the string ARE only. 

"ARE'YTOSSIBLE" a range from the first character of the next appearance in the WORK 

file of the string ARE through the last character of the next appear- 
ance of the string POSSIBLE. Note that if the last position in a range 
is a string, range includes the last character of that string, 

rangelist 

one or more ranges. For example, 10/20,23/46 signifies two ranges, one consisting of lines 10 through 
20 and one consisting of lines 23 through 46; "WRITET'READ","KEYYT^OW" signifies two ranges, 
one starting with the first character of WRITE and extending through the next appearance of READ 
and one starting with the first character of KEY and extending through the next appearance of NOW. 

recnum 

a logical record number contained in a file referenced by filename. The first record is nimiber 0. See 

the MPE Commands Reference Manual for a discussion of logical record numbers. 

startcolumn 

the starting column number of a portion of a record. This may be any number within the LEFT- 
RIGHT margins (see the SET command, paragraph 3-92) or an expression of the form FIRST ±n, 
LAST ±n, LEFT +n, or RIGHT -n, whose value is within these margins. 

startline 

the first line of a group of lines. 

stopcolumn 

the ending column number of a portion of a record. This may be any number as described above 

for startcolumn. 

stopline 

the last line of a group of lines. 

string 

a group of characters written exactly as it appears or is to appear. A string must be delimited by 
(enclosed in) any special (non-alphanumeric) characters except: apostrophes, commas, semicolons, 
periods, parentheses, asterisks, slashes. As noted in paragraph 3-6, #, +, -, and = should not be used 
as delimiters when advanced commands are also used. For example, 

"THIS IS A STRING" 
#THIS IS A STRING # 



Nonprinting characters can appear outside the string, if represented by their decimal numeric equiv- 
alent (in ASCII code — see Appendix A) and preceded by apostrophes (*). For example, 

'13"ABC""DEF"'13 
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ADD 



3-8. ADD COMMAND 

3-9. Purpose. The ADD command is used to enter text into the WORK file from an INPUT file or from 

the HOLD file. 

3-10. Form. The form of the ADD command is 

A[DD](Q] [linenumber] [,HOLD[Q] [,NOW]] 

3-11. Description. The ADD command can add text to the WORK file from an input file or from the 
HOLD file. The command adds text between existing lines of text in the WORK file by declaring a specific 
linenumber in the ADD command, or to the end of the WORK file if linenumber is absent. If an asterisk is 
entered as the linenumber^ text will be added immediately following thelineonwhich the pointer is situated. 
The new linenumber is determined in the same way as in the example above. 

3-12. Limitations. The ADD command cannot be used to replace existing lines of text in the WORK file. 

For example, if line 5 already exists in the WORK file, the command ADD 5 will cause the text to be added | 

between line 5 and the line following it. ^ 

If the linenumber parameter is absent from the ADD command and the WORK file is empty, text begins at the 
line specified by the SET FROM = linenumber command (default = 1). The left and right margins are set by 
the SET LEFT = colnum and SET RIGHT = colnum commands. See paragraph 3-92 for a description of the 
SET command. 
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3-13, Examples. Examples are provided for several variations of the ADD command. The position of the 
pointer for each variation is shown in these examples. 

• ADD 

In the following example, the ADD command adds text records to the end of the WORK file. (The text begins at 
line 1 in the example because the WORK file is empty and SET FROM is equal to the default value of 1.) 

EDIT/3000 prompts with line numbers and text is added. Two slashes (//) are used to terminate the ADD 
command. The ADD command also can be terminated by CONTROL Y in an interactive session. 

The FIND * command (see paragraph 3-32) locates the pointer, which is set to position 1 of the last record 
entered. EDIT/3000 prints the last line entered, an arrow, and the column number (position) in parentheses. 
Thus, the pointer is at the first character of the last line entered. Note that the line number is not considered to 
be part of the record. Note also that when another ADD command is entered, the pointer will be incremented 
so that text will be added beginning with the next line (line 5 in this example). 



'4 (^:'^z/?^^^) 'v.f\i- ir MC£D -^0 c"ZAT£ a;jc 

t\ (>"" ::/!'''"') ■'HA" I" "^i:d "^j i-'F.^-^z a::d 

'Cl ) 



• ADDQ 

When the ADDQ command is used, as in the following example, EDIT/3000 does not prompt with line 
numbers. Text is added as before, and CONTROL Y or // is used to terminate the command. 





iLz:<^. 








CMA' 


"AC-^I- 


"^. <?T-)r;j;3 


': CF C'iA" 


'AC'I'^':-» -c 


ZUri 


^.■£ 


L I :i 


Z'-- OF 


cha'^acte:-' 


•■ CAN ni 


\Vi^zP-[z:i> 


DELE" 


ED. 


rjv 1 


';~r:JG 


EDI'^/Ti:!"' 


^0N^'.A^1D': 


i. 






/ / 














/Fl: 


:jd* 














=1 




EDIT/I?'^ 


;" COKMAIJDC 


• 
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• ADD linenuTYiber 

If the linenumber parameter is part of the ADD command, a specific line number is added to the WORK file. 
Line number 7.1 is added between lines 7 and 8 in the following example. 



/LI ^T 7/fl 

7 LiriE.S OF CHARACTER? CAN 9E IN«:E?TED> DEXETEDi 

e BY '"^ING EDIT/33J)0 COMMANDS. 
/ADD ■^■l 

7.1 HE^LACED^ MODIFIED^ AND 'JEAPCHED FO? 

7.2 // 

/FIND* 

7.1 'lEPLACEDi MODIFIEDi AND f^EA^CHED F09 
»<l ) 
/LI?T 7/8 

7 LINE? OF CHAPACTE^S CAN BE INSE^TED^ DELETED* 
7.1 OEOUACED^ MODIFIED* AND SEARCHED FO" 

8 BY U?ING EDIT/330fl COMMAND?. 



• ADD,HOLD 

The ADD, HOLD command adds text to the WORK file from an input file, then, after input from this file is 
ternunated with // or CONTROL Y, the command adds text from the HOLD file. 

In the following example, lines 9 and 10 are added from the terminal, input is terminated with //, and lines 11 
and 12 are added from the HOLD file. (The HOLD file had been created previously with the HOLD command, 
described in paragraph 3-44.) The pointer is located at position 1 of the last line entered from the HOLD file. 

(If the ADD»HOLDQ form of the command had been used, the HOLD file contents added (lines 11 and 12) 
would not have been listed.) 



/ADDjHOLD 

9 THE FILE? TO QE EDITZD CA:j '^E '?0"?CE -^TOGPAK'^ 

13 ',"?ITTEN IN COKOMTE^ La:J2Va:1^ <^'ic!( A'^ FO"T?A^r 

I 1 // 

M AND COaOLj 0*? TE>:t MATE'=»IAL 5'JCH A= LETTE"."^^ 

12 ?e«o«t*5j TEc-tfJicAL >;am^'al'5j and ?o FD^-^^r. 

/FIND* 

12 ^EOQ^T^* TECHNICAL MA>JVAL^j AWC SO FO'-TU- 
TCI 5 
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ADD,HOLD,NOW 



The ADD,HOLD,NOW command adds text to the WORK file from the HOLD file only, as shown in the 
following example. (Note that a new HOLD file has been created.) 

/ADD.WaLD^NOW 

13 1-2" F:DIT/33^7 FEAT-.'^E'! 

14 VITH EDIT/33-.13, IT I? '=0'?«;i3lE TO 

15 CREATE AND D'/XLD A NE'J FILE < CALLED A V-J-^K FILE) 

16 9Y £^JTE^1N3 C0MKAND3 AND Li:JE9 OF TE"? F'^DM AN 

/FIND* 

J 6 3Y ENTE^.ING COMMAJJD? AND LINES OF TEXT 7^.07, AM 

•CI ) 

• ADD,HOLDQ.NOW 

The ADD,HOLDQ,NOW command adds text to the WORK file from the HOLD fQe without listing the text 
added. Instead, EDIT/3000 displays the message LAST LINE = linenumber, where linenumber is the last 
line added from the HOLD file, In this case, it happens to be the last line in the WORK file. The HOLD file 
used in this example is the same as that used in the previous example. 

/ADD,HOLDn,KOy 

• * • 

LAST LINE - 16 

/FIND* 

16 3Y ENTERING COMMANDS AND LINE? OF TEXT T^.QV. AtJ 

T(l ) 

• ADD Zmenzzm6er,H0LD,N0W 

When the ADD linenumber JHOLO.NO^ variation of the ADD command is used, the HOLD file contents are 
added to the WORK file beginning at the line number specified by the linenumber parameter. 

In the following example, four lines of text are added to the WORK file starting at line 12 (the lines are 
inserted between lines 12 and 13 of the WORK file). A listing of the complete WORK file shows the result of 
the various ADD commands. 

/ADD 12.1 -.HOLD* NOW 

12.1 1-2. EDIT/33^'3 FEATURES 

12.2 VlTH EDIT/33aC5* IT IS ^JCiSISLE TO 

12.3 CREATE AND BUILD A MEW FILE (CALLED A V07K FILE) 
12.^ 9Y ENTERING COMMAND? AND LINES OF TEXT FPOV. AN 

BY ENTERING COMMANDS AND LINES OF TEXT F^OM AN 
tCl ) 

1-1. UHAT IS EDIT/Saaa? 

EDIT/3003 IS A SI/SSYSTEM OF THE H? 3-303 

MTJLTIPSOGRAMMING EXECUTIVE O^E^ATING FYfiTEC! 

<MPE/3!^t1^) THAT IS V3ED TO CREATE AND 

KANIDULATE ASCII FILES- 

CHAPACTED.S, STRINGS OF CHA^^ACTE^ =:^ 0^. EHTll'E 

LINES OF CHAHACTE^.S CAW BE IN<;ERTED^ DELETED^ 

REPLACED* MODIFIED, SEARCHED FQPj AND 

OTHERWISE MAMI-'TtLATED 

3Y 'J<=;iNG EDIT/351f?'? COt^MANDf? . 

THE FILES TO 3E EDITED CAN TE ?0*J^CE ^■^OGIAK^ 

'./T?rTTEN IN COMO'iTE? LANGUAGE *=:UCH A*? FO^T^.A.'J 

AND COBOL, 09 TEXT MATERIAL SUCM AS LZITZPS.* 

REDOnTS, TECHNICAL KAH'JALS, AND SO FOT^TM. 

J -2- EDIT/3'70R FEATURES 

yiTH EDIT/3(130# IT IS ''OSSISLE TO 

CREATE AND BUILD A iJE'.? FILE < CALLED A ■•JO^K FILE) 

3Y ENTE'iJNG COHMAMDS A^JD LI!JES OF ^E"^T F=0:< Aii 

INPUT FILE AND/O^ FoQII A .'^'^ECIAL 01 "C FILE 

(CALLED A HOLD FILE). 

If ADD linenumber, HOLDQ,NOW is specified, only the number of the last line added from the HOLD file 
is displayed. 
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/FIND* 


12.4 


/LIST ALL 


1 

2 


3 


4 


3 


6 


7 


7.1 


7.2 


5 


9 


19 


1 I 


12 


12.1 


12.2 


ia.3 


ia.4 


13 


\u 
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3-14. CHANGE COMMAND 

3-15. Purpose. The CHANGE command is used to alter specific portions of the WORK file contents. 

3-16, Form. The form of the CHANGE command is 



C[HANGE][Q1 



oldstring 

^startcolumn [fstopcolumn ) 



TO^ 



(IN 



[rangelist]] 



For example, 

CHANGEQ "SPL/3000" TO "FORTRAN/3000" IN 1/10 



oldstring- 



newstring\ rangelist- 



\ 



The example will change all occurrences of SPL/3000 to FORTRAN/3000 in lines 1 through 10. The use of Q 
suppresses the listing of all changed lines. 

3-17. Description. The CHANGE command searches through the range of positions specified in rangelist, 
locating each occurrence of oldstring or startcolumn. When each occurrence of the target (either oldstring or 
startcolumn) is located, newstring is substituted for oldstring, or newstring is substituted for the value 
contained in the startcolumn! stopcolumn area, or newstring is inserted before startcolumn (if stopcolumn was 
not specified in the command). 

3-18. Limitations. The CHANGE command operates within the LEFT-RIGHT margins (see the SET 
command, paragraph 3-92); however, if newstring is longer than the oldstring it replaces, the CHANGE 
command can produce lines that exceed LENGTH by as much as 50 percent. 

If the CHANGE oldstring TO newstring form of the CHANGE command is used and rangelist is omitted, the 
command will not execute unless oldstring is located first with a FIND oldstring command. 

For example, the first line below contains the string "EDIT/3000". The commands FIND FIRST;CHANGE 
"EDIT/3000" TO "EDITOR/3 000" ;LIST FIRST demonstrate that the command CHANGE "EDIT/3000" TO 
"EDITOR/3000" did not execute. 



1 



1-2 



WHAT IS EDIT? 



1-2 



WHAT IS EDIT/3000? 



1 
2 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 
/FIND FIRST;CHANGE "EDIT/3000" TO "ED ITOR/3000; LIST FIRST 

1 1-2. WHAT IS eDIT/3000? 
"(1 ) 
*21*STRING NOT FOUND BEFORE LIMIT 
1 1-2- WHAT IS EDIT/3000? 
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The rangelist parameter can be omitted, however, if the FIND string command is used first, vfhere string is the 
string to be changed. See below. 



/FlNCn Flo.CTiFIND " EDI T/3flC?C"' J CHANGE - £31 •^/JC'*?!'''- T3 "IDI TO- /'J'^l^^^' 
1 1-2. '-fflAT rs SDIT/T?''^? 

CSS >» 
I 1-3. VHA*^ I*: EDITC/D^P"?? 



If the startcolumnlstopcolumn parameters are included in the CHANGE command (following a FIND com- 
mand to locate the line containing the string to be changed), the CHANGE command also will execute, even if 
the rangelist parameter is omitted, as shown by the sequence 

FIND 3;CHANGE 1/9 TO "EDITOR/3 000";LIST 3 



/Fi:iD 3;CMANGE 1/9 ^0 "EDITO^ T^lf'^"; LI '^'l* 3 

1 ECi'^/ipi'^?' I'" A "•:n'*v<^T=;K OF rris m~» i^?'^ 

t( ] ) 

3 ZDI'^0^ ITt'"? I<: A '^ii^'^V'^TEM OF THfi m l^^n'^ 

3 EICI-^O^ 1'1'^f" I". A '^■'r>'"-Y<^*^£M OF THE H'' l'^'"? 



Note: To avoid a time-consuming search of all lines in the WORK file (unless, 
of course, this is desired) when an oldstring, newstring type of change 
is invoked, use specific line numbers in rangelist. In addition, if it is 
known that items to be changed are contained within specific columns 
(or to limit the columns for the CHANGE command execution), use the 
SET LEFT and SET RIGHT commands (see paragraph 3-92). 
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3-19. Examples. The following examples show several variations of the CHANGE command. The location 
of the pointer is illustrated at the conclusion of each CHANGE command. 

• CHANGE oldstring TO newstring IN rangelist 

In the following example, the characters ID (oldstring) are changed to EGO (newstring). Note that every 
occurrence of the characters ID was changed. To change only the word ID, the newstring parameter should be 
entered as 'iDlDb". 

Note: Where necessary for clarity, blank spaces are signified by the letter b 
in this manual. 

After another change to change EGO back to ID, a new CHANGE command is entered to obtain the desired 

result. 

The pointer is located one position beyond the last character of newstring at the conclusion of the CHANGE 

command. a 

/L I^^ ALL 

i -^HE FQLLOVirJ" LINE': yiLL 3E SDITtD 

2 M<:iNG TME CHANGE COf^MAND- 

H IT HAS BEEN *^AID '^HAT TME ID MAY 

5 HE IDENTIFIED A^ "'A^T OP THE '><iyCHE. 

/CHA^GE "ID" TO "EGO" IfJ ^/'^ 

a IT MA^ BEEN <:aE30 TltAT THE £G0 MAY 

■^ RE EGOENTIFIED A^ ^A^T OF THE -»<;YCHE, 
/FIND* 

^ 9E EGOENTIFIZD AS ''A^T OF THE 05YCHE. 
C7 ) T 

/CHANGE "EGO" TO "ID" IN 4/5 

4 IT HA<; BEEN ""tAID THAT THE ID KAY 

5 3E IDENTIFIED A<: ''A^^ OF THE ^?YCHE. 
/FI Nr> 

■5 3E IDENTIFIED A<^ "A^T OF THE "«YCHE. 

C6 )t 
/CHANGE " ID " TO " EGO " IN it 

^ IT HAS BEEN ^AID THAT THE EGO MAY 

/F IND* 

It IT HAS BEEN <;AID THAT THE EGO MAY 

< 31 ) t 



• CHANGE startcolumn TO newstring IN rangelist 

The following CHANGE command example is used to insert the characters FOR EXAMPLE, BY before 
column 1 in line 2. Note that at the conclusion of the CHANGE command, the pointer is set immediately 
after the characters that were changed. 



/L I<iT 3 

2 VISING THE CHANGE COMMAND. 
/CHANGE 1 TO "F0« EXAMPLE* BY " IN 2 

3 FQo EXAMOLE, BY USING THE CHANGE COMMAND- 
/FIND* 

2 F0«> EXAMPLE* BY Tj<;iNG THE CHANGE COMMAND. 
C 17 )^ 



3-12 



CHANGE 



• CHANGE oldstring,newstring,rangelist 

The next example illustrates the use of commas instead of the words TO and IN in the CHANGE command. 



/LIST U 

ii 1-^ HA« <3££N .-^AID THAT THE EGO MAY 

/CHANGE " EGO ".*■ ID -.^ 

H n HA? 3EEN "^AID THAT THE ID MAY 
/FIND* 

4 IT HAS BEEN ?A I D THAT THE ID KAY 

(3(? i r 



If the CHANGE startcolumnfstopcolumn TO newstring form of the CHANGE command is used and newstring 
contains a different number of characters than that specified in startcolumnlstopcolumn, EDIT/3000 will 
contract or extend the line to accommodate the characters specified in newstring. See below. 

/F "EDIT/33^«»" 

3 EDIT/:i&i^3 I^ A SiTBSV^^TEM OF THE H° 3^3'^ 

T( 1 ) 

/C 1/9 TO '•EDITOR/.la00" 

3 EDtTO^/330« IS A SUBSYSTEM QT THE H? 333£! 

/C I /I I TO "EDITO?." 

1 EDITOR I? A S'J9.^Y?TEM OF THE HP 



• CHANGE oldstring TO newstring IN ALL 

When ALL is specified in the rangelist parameter of the CHANGE command, EDIT/3000 searches through 
the entire WORK file for all occurrences of oldstring within the columns specified by SET LEFT and SET 
RIGHT and changes all such occurrences to newstring, 

/LIST ALL 

] 1-2. WHAT IS EDIT/33?)a? 

3 EDIT/3000 IS A prjSSYSTEM OF THE H° 2'iZ^ 

ti W'JLTI=r^OGP.AMMINa EXEC'JTIVE QoEPATING SY5TEM 

5 <MPE/30Oa) THAT IS USED TO CPEATE AND 

6 HANIOULATE ASCII FILES. 
7 

3 CHAPACTEPS^ STRINGS OF CHARACTERS, OP. ENTIRE 

9 LINES OF CHARACTERS CAN BE INI^ET^TED. DELETED. 

I« REPLACED/ MODIFIED, SEARCHED FOP, AND OTHERWISE 

n MANIPULATED BY L"=ING EDlT/3a5f0 COMMAND^. 
/CHANGE "EDIT/30<?0" TO "HP 2^(33 TEXT EDITOR" JN ALL 

I 1-2. VKAT IS H^ 3300 TEXT EDI TO"? 

3 HO 300(3 TEXT EDITO" I -^ A SUB.CYSTEM OF THE HP 3«i*^ 

II MANJOTJLATED 3Y U^^ING H^ 3000 TEXT EDITOR COMMAND?. 
/FIND* 

1 1 MANIPULATED 3Y USING H° 3^(10 TEXT EDITOR COMMANDS. 
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3-1 9a. COPY COMMAND 

3-1 9b. Purpose. The COPY command copies text from one location into another in the WORK file. 

3-19c. Form. The form of the COPY command is 



CO[PY] [Qlraw^cj ^^ \{linenumber)[ 



BY 



increment] 



3-1 9d. Description. The COPY command copies the lines specified by range to the linenumber indicated. 
The new line numbers are incremented by the value specified in the command. If increment is not included, 
it defaults to the SET DELTA = increment in effect. If necessary, in order to fit the lines to be copied into 
the space available between existing lines, EDIT/3000 will adjust the increment in effect until the minimum 
increment of .001 is reached. If the lines to be copied will not fit into the available space, the error message 
"*18* INSUFFICIENT LINE NUMBERS OR WORK SPACE " COMMAND NOT PERFORMED" will be 
displayed and no text will be copied. 

During the copy, the line numbers of the lines being copied from and copied to are displayed thus; 

5-^50 

where 5 represents the hne number from which data is copied and 50 represents the line number to which 
the data is copied. If this output is not desired, it can be inhibited by adding Q to the COPY command. 

In an interactive session, a COPY command may be terminated by entering CONTROL Y. 

3-19e. Limitations. EDIT/3000 will reject a COPY command and print an error message if: 

1. A linenumber specified in the TO portion of a COPY command already exists in the WORK file. 

2. The SET DELTA = increment in effect cannot be adjusted by EDIT/3000 to allow as many line numbers 
as there are lines to be copied. 

3. A BY increment (or .increment) parameter is specified that does not allow as many line numbers as 
there are lines to be copied. 

3-1 9f. Examples. Several variations of the COPY command are shown in the following examples. 
The location of the pointer is illustrated at the conclusion of each COPY command. 

• COPY ALL TO linenumber BY increment 
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The following example uses the command COPY ALL TO 2.1 BY .01 to copy all lines to 2.1, 2,11, 
2.12, 2.13, 2.14, 2.15, and 2.16, The pointer is located at the first position of the last line copied 
(2.16). 

/L ALL 

1 1/2- WHAT IS EDIT/3000? 
2 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

5 CMPE/3000) THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES. 
7 

/COPY ALL TO 2-1 BY -01 

1 => 2.1 

2 => 2-11 

3 => 2.12 

4 => 2-13 

5 => 2.14 

6 => 2.15 

7 => 2.16 
/FIND* 

2.16 

'^ (1 ) 
/L ALL 

1 1/2. WHAT IS EDIT/3000? 

2 

2.1 1/2- WHAT IS EDIT/300a? 

2-11 

2-12 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

2.13 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

2.14 (MPE/3000) THAT IS USED TO CREATE AND 
2-15 MANIPULATE ASCII FILES- 

2-16 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

5 (MPE/3000) THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES- 
7 
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• COPYQ range, linenumber 

The next example copies lines 2, 2.1, 2.11, 2.12, and 2.13 to a location starting at line 6.01 



/COPYQ 2/2-13, 6. 01 
/L ALL 
2 

2.1 1/2- WHAT IS EDIT/3000? 
2-11 

2-12 EDIT/300Q IS A SUBSYSTEM OF THE HP 3000 
2-13 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 
2.14 (MPE/30QQ) THAT IS USED TO CREATE AND 
2-15 MANIPULATE ASCII FILES. 
2.16 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

5 (MPE/3000) THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES. 
6.01 

6.02 1/2. WHAT IS EDIT/3000? 
6-03 

6.04 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

6.05 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 
7 
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3-20, DELETE COMMAND 



3-2 1« Purpose. The DELETE command is used to delete lines and/or character strings from the WORK 
file. 

3-22. Form. The form of the DELETE command is 

D[ELETE][Q] [rangelist] 

For example, 

DELETEQ 1/10 

3-23, Description. The DELETE command will delete complete lines, specific character strings from a 
line, or the entire contents of the WORK file. If no rangelist is specified, EDIT/3000 deletes the line in which 
the pointer is located. A rangelist that specifies a startline/stopline pair deletes these lines and all lines in 
between. A rangelist that specifies a startline.stopline pair deletes only these two lines. A rangelist that 
specifies positions within Unes, separated by a slash, results in the deletion of all characters contained be- 
tween these two columns, including any lines that fall between the two positions. 

When the DELETEQ form of the command is used,EI>IT/3000 does not display the lines deleted. Instead, a 
message is displayed showing the number of lines deleted. For example. 



/S ^HOPT.'T EDI T3 J DO i/^ 
UrmSEP. OF LINE?i DELETED = 4 
/S 
CL£A^ Y 



In interactive session, you may terminate an active DELETE command at any time by typing CONTROL Y on 
the terminal. 

3-24, Limitations. WORK file contents removed with a DELETE command are lost. When a DELETE 
ALL command is entered (deleting the entire WORK file), EDIT/3000 will ask if it is OK to clear, thus 
confirming your intent. 

Note: EDIT/3000 does not list the lines removed when the DELETE ALL 
command is used. 

The DELETE command operates between LEFT and RIGHT margin values unless the rangelist specifies 
lines (without column numbers). In this case, entire lines are deleted, and the DELETE command ignores 
SET LEFT and SET RIGHT commands. See paragraph 3-92 for a discussion of the SET command. 
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3-25. Examples. Several variations of the DELETE command are shown in the following examples. The 
location of the pointer is illustrated at the conclusion of each DELETE command. 

• DELETE startline/stopline 

The first example specifies a startline/stopline pair of 8/10 in rangelist and lines 8 through 10 are deleted. 



/Lr^T ALL 

1 1-?. VmAT l.":; £DIT/'J0(?^? 

3 iDIT/3?09) I? A ^V3f=YSTEM OF THE H<^ 300;3 

4 KllLTI='»OG"AMKING Z^^EC'JTIVE O^E^ATIMG "^Y^TEM 

5 CM?E/n{75J!l) THAT 1 5^ rj?ED TO CREATE AND 

6 MANl°nLATE A<^CII FILE?. 
7 

^ CHA"ACTERR^ STTING*^ OF CHA<*ACTEd <;* 0° ENTI-^E 

9 LINSF OF CHARACTERS CAN 3E INSE'^TED* DELETED^ 

l*^ ^.E^LACED> MODIFIED^ "^EA^CHED FO"^ AND 0THET?UI«;E 

II KANI'^iJLATED 3Y USING EDIT/300T COMKANDS. 

/DELATE i^/ltj 

9 CHA^ACTEPS* STRINGS OF CHAPACTER'?* 0" ENTIo.E 

9 LINES OF CHA^ACTE^^S CAN BE INSERTED* DELETEDj 

l^ ^E^LACED.. MODIFIED.. SEAOCHED FO"* AND OTHE-'VISE 

/FIND* 

11 MANI^'fLATZD ^Y n^lUI ED1T/.1<?^:^ COKMAND<?. 

tt 1 ) 

• DELETE startline (colnum)/stopline (colnum) 

The foQowing example specifies columns within lines. This results in the deletion of the two characters 
contained in the two columns and all characters between the two positions. 

/FIND ii < I 6 > 

ii ^:•'L■^I''''0G'^AM^^I^J1 exectt'e O'^E'^ating "^y-^tem 

< 16 J' 
/FIND s( n > 

5 (■■:''Z/3P:13 ) THAT I '^ '"^ED TO CREATE AND 

(11 )' 
/DELETE 4( l7)/5( 1 1 > 

ii K'tL'fI'5r>0G^Ar^MIMG EYEC'TIVE 0°E?ATIJJG '^Y^^TEM 

5 CKP£/,1PK5?)) THAT I '^ ^^£0 TO CT'-CATE A.'vD 

/FIMD* 

5 THAT I« "<^ED TO CREATE AHD 

* TCI 1 

/LI CT /,/e; 

U M*n,Tl°"OG?AMMING 

■^ THAT IS TJ^,ED TO CREATE AND 



• DELETE startline/stopline 

The startline ^topline form of the rangelist ^ as in the following example, causes only the two lines named in 
rangelist to be deleted. (Note that more than two lines, separated by commas, could be specified, in which 
case those lines named would be deleted.) 



/ DEL £TE 3^6 

3 ZDIT/a^'^l 13 A ^UPS'^STEri OF THE H'' 3^3^ 

6 ia:ji^ulate ascii file?. 



/FI.vIL 

7 



' ( 1 
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• DELETE string! string 

When the rangelist parameter consists of two strings, as, for example, 

DELETE "SUBSYSTEM"/" ASCII" 

EDIT/3000 deletes all characters between the first character of the first string and the last character of the last 
string, including any lines that are between these two characters. 



/Ll-T ALL 

1 

2 EDiT/ignci I "^ A ^jngcy^TEt^ or "^h^ h'^ t^'^i 

£1 ^V'LTIT'OG^AMMI:J■; EXEC'TIVE o^e^atijjg ■^v^tem 

■^ (Mt>£/-npT3 'r]lf\f ir -'^ED TO CREATE AND 

"} y.ANIT'LATe A'^CII riLf' 
7 

'^ CKA^ACTE'^'i. --^PINGS OF CHA^ACTE""^, G** E.^JTlTE 

9 LINE«; OF CHA^ACTE^.'^ CAM 3E 1 ^J f^i E" "^ £ D . D=;LE-r^D/ 

l'^ ^"■'LACiDj MODIFIED. ^EA^CHED rOi> ArJD Q^HE^VI^E 

tl r^ANI'^'lLATED HY 'fSIN3 EniT/3T3'? COl^MANDi;. 

/F INOn FI"^*? 

/DELETE ■•^■jn?Y«TE:M"/"ASCU" 

3 £017/3^'^'' 1*=; A G'T2<;Yr,T£K OF TM ■: M'' ^-^'^ 

ft MTjLTlorTO-j?AMMIN'] EXEC'.'TI'/E OaE-^ATl :JG SY<5TE>! 

5 CWE/T?^^) "^HAT I? "JFED TO CP.EATE AND 

6 MANIPULATE ASCII FILE*:. 
/F INI> 

6 FILE^. 
tCl ) 
/L 1ST 3/6 

1 EDIT/33^!^ IS A 

$ FILE'^. 



If the same string is used for both ranges in rangelist, as, for example, 

DELETE "SUBSYSTEMY'SUBSYSTEM" 
EDIT/3000 deletes this string only. 



/LI'?T ALL 

I 1-2. WHAT IS ED1T/3<!P^? 

2 

3 EDIT/3{503 I? A SUBSYSTEM OF THE M? 3300 

4 M'JLTIDPOGRAMMIMG EXECUTIVE OPERATING SY5TEM 

5 CHPE/3(?3f^) THAT IS UFED TO CREATE AND 

6 MANIDTILATE ASCII FILES. 
7 

g CHARACTER! Si STRINGS OF CHA9ACTEPS/ OH ENTIRE 

9 LINES OF CHA'IACTERS CAN 3E INSERTED, DELETED^ 

\7i REPLACED/ MODIFIED^ SEARCHED FOr^^ AND OTHERWISE 

II MANIPULATED 3Y USING EDIT/3333 COMMANDS. 

/FIMCn FIRST 
/DELETE "S'JBSYSTEM"/"SU3SYSTEM" 

3 EDIT/33C10 IS A SUBSYSTEM OF TME H^ 3330 

/FIND* 

3 EDIT/3330 IS A OF THE H'= 3:i0(' 

/LIST 3 

3 EDIT/3303 IS A OF THE Ho 3^33 
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3-26, END COMMAND 

3-27* Purpose. The END command is used to terminate EDIT/3000 operation, thus returning control to 
MPE/3000, or to end BEGIN/END pairs. (See Section IV for a discussion of the END command used in a 
BEGIN/END pair.) 

3-28. Form. The form of the END command is 

E[ND] 

3-29. Description. The END command terminates EDIT/3000 operation and returns control to 
MPE/3000. When an END command is entered in an interactive session, EDIT/3000 will display the message: 



17 IT 13 O:^ TO CLEAn ".1.3^0:1:; "YES" 
CLEAr? 

If the answer is YES (or Y), EDIT/3000 will terminate and MPE/3000 will display END OF SUBSYSTEM. If 
the answer is other than YES (or Y), EDIT/3000 displays the following message 



CL£f\P. MOT COrJFI?_MiD - TEXT IS L-N CHANG EC 

and prompts for another command. Both the HOLD and WORK files remain unchanged. 
If the work file is not altered or it if is altered but kept, the message 

Ir IT IS OK TO G.EAP RESPOND "YES" 
CLEAR ? 

does not appear, and EDIT/3000 is terminated without requiring a response. 

In batch mode, the END command is executed unconditionally. 

3-30. Limitations. Unless a KEEP command (see paragraph 3-62) is entered before an END command, 
the contents of the WORK file will be lost when the END command is executed. (The HOLD file is always lost 
when the END command executes.) 

END in a USE file causes the USE command to terminate (see the description of the USE command in this 
section). 

3-31. Example. The following examples show the use of the END command. 

/END 

1 F IT IS OK TO CLEAT* RESPOND "YEF" 

CLZfk".? YE- 

END OF .7'.3?Y<;TEM 

J 

If SHORT=TRUE, then the full string, IF IT IS OK TO CLEAR RESPOND "YES," is not displayed. 

/SET 'tho?t;end 

CL£A«? YE? 
^MD OF <;'l3r-Y^TEM 
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3-32. FIND COMMAND 

3-33. Purpose. The FIND command is used to locate a specific position in the WORK file. 

3-34, Form. The form of the FIND command is 



F[IND][Q] 



range 



3-35. Description. The FIND command searches forward in the WORK file from the present position of 
the pointer until the range parameter is found. If range is a character string, FIND searches forward until the 
first occurrence of the string is found. The pointer is set at the first character of the string. If range is a line 
number, EDIT/3000 moves the pointer to the first column in that line. If range is not a single position, but 
is of the form startline/stopline, EDIT/3000 will find the first position specified (startUne) or the first 
existing line before the second position specified (stopline). For example, FIND 1/200 will find the first 
position of the first line (1) if it exists or of the first existing hne before hne 200. If range is specified as a 
position in a line, the pointer is moved to that position. FIND * finds the current location of the pointer. 
The position of the pointer is always indicated by EDIT/3000 unless the Q parameter is specified in the 
FIND command. 

3-36. Limitations. If a SET command (see paragraph 3-92) has been used to set left and right margins in 
the WORK file, then a search for a string will only operate within these margins. For example, if the margins 
are set with the command SET LEFT = 50, RIGHT = 72, a FIND command will only locate a string that occurs 
totally within columns 50 through 72. 

Unless it is desired that the entire contents of the WORK file from the present position of the pointer to the end 
of the file be searched, a FIND command should be entered with a range, as for example, 

FIND "AJAX'7* +10 

or 
FIND "AJAX^'/lOO 

The first of the foregoing commands will search only the 10 lines immediately following the present location 
of the pointer, while the second example will search from the pointer to line 100. 

If range is not forward of the present location of the pointer, the remainder of the file will be searched and 
range will not be found. A FIND FIRST;FIND range command may be used in this case. The pointer will 
return to the first position of the first line in the file and search from there. 

A message will be printed if EDIT/3000 cannot comply with a FIND command. Reasons for failure include 
specifying a location or string that does not exist, specifying a range in the wrong order (last location before 
first location), specifying a range behind the current location of the pointer in the file, specifying a range 
outside the left or right margins established by a SET command, and specifying a range consisting of a string 
which does not exist. Note that specifying ALL for the range is invalid with the FIND command. 
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3-37. Examples. The following examples illustrate the use of the FIND command. 

The FIND FIRST command finds the first line in the WORK file, then positions the pointer to the first position 
in this line. 

FIND " ENTIRE" finds the string bENTIRE (b signifies a blank character) and positions the pointer to the 
first character in this string. 

The next command, FIND " HP 3000" results in error message number 21, "STRING NOT FOUND BEFORE 
LIMIT" because EDIT/3000 only searches forward in the WORK file and HP 3000 occurs before line 8 (the 
previous location of the pointer). 

The command FIND FIRST;FIND "HP 3000" causes EDIT/3000 to locate the first line, then the line contain- 
ing the string HP 3000. To prevent EDIT/3000 from listing the first line, the command FINDQ FIRST;FIND 
"HP 3000" is used. 

Finally, the command FIND 8(45) finds the 45th position in line 8. 

I 

/LI^T ALL 

1 1'^. V:HAT is EDIT/33^'^? 

r> 

3 EDIT/-!!?P(a I? A SU9?Y.<;tEM OF THE HP 3930 

f\ MTJLTI??OGP.AMMi:-JG E^CECUTIVE OPE^'ATI-NG SYSTEM 

5 CMPE/aa^qi THAT IS USED TO CPEATE AND 

6 MAiMIPWLATZ ASCII FILES. 
7 

S CHAPACTE"?^ ?;T"ING? OF CHARACTERS' OR ENTIRE 

9 LINES OF CHArtACTE«S CAN BE INSERTED^ DELETED^ 

13 REPLACED* MODIFIEDj SEARCHED FOR* AND OTHERWISE 

1 I MANIprrLATED BY U5I^JG EDIT/303a COMMANDS. 

/FIND FIRST 

I 1-2. 'jfHAT IS EDIT/30^0? 

Tt 1 ) 
/F IND •• ENTIP.E" 

8 CHARACTER*:* CTRINGS OF CHARACTERS/ OR ENTIRE 

/FIND " HP 3«!0(1" 

*2l ♦STRING NOT FOLTMD BEFORE LIMIT 

/FIND first; FIMD " HP 3f33a" 

I 1-a. vmAT IS EDIT/3000? 

TCI ) 

3 EDIT/3a33 IS A SUBSYSTEM OF THE HP 3300 

<32 )r 
/FIND? FIR5T;FIMD " HP 3330" 

3 ED1T/35J00 IS A SUBSYSTEM OF THE HP 3000 

£3a )T 

/FIND 8(^5) 

3 CHARACTERS* STRINGS OF CHARACTERS* OR EWTlRE 

<45 )T 



The next example illustrates that FIND startline/stopline finds the first existing line (in the WORK file) 
before the second linenumber specified. 



/OQ 1/7 

NUMBER OF LINES DELETED = 7 

/L ALL 

8 CHARACTERS, STRINGS OF CHARACTERS, OR ENTIRE 

9 LINES OF CHARACTERS CAN BE INSERTED, DELETED, 
SO REPLACED, MODIFIED, SEARCHED FOR, AND OTHERWISE 
11 MANIPULATED 8Y USING EDIT/3000 COMMANDS. 

/FIND i/10 

8 CHARACTERS, STRINGS OF CHARACTERS, DR ENTIRE 
"CI ) 
/ 



3-22 



GATHER 



3^8. GATHER COMMAND 

3-39. Purpose. The GATHER command removes text from one location to another in the WORK file. 

3-40. Form. The form of the GATHER command is 



G[ATHER][Q] 



range 



,ALL [1 



TO I linenumber \ 



TO 



linenumber] 



BY 



increment] 



For example, 



GATHER 55/89 TO 8.01 BY .01 
— ^ linenumber—^ 



range 



increment 



Note: Use the SET SIZE command (see paragraph 3-92) to set the SIZE to a 
large value if extensive gathering is to be done. 



3-41. Description. When the range parameter is specified in a GATHER command, the linenumber 
parameter must be specified also, as for example, 

GATHER 80/100 TO 230.1 



or 



GATHER 80/100,230.1 (a comma may be used instead of TO) 



EDIT/3000 will move lines 80 through 100 to 230.1. incrementing each line by the SET DELTA = increment in 
eifect (the default is 1 if SET FORMAT = DEFAULT and 0.1 if SET FORMAT = COBOL), and deleting lines 
80 through 100 from their original locations. The SET DELTA = increment in effect could have been 
overridden by using the increment parameter in the GATHER conmiand (see paragraph 3-92 for a discussion 
of the SET command). 

EDIT/3000 will adjust the increment in effect until the minimum increment of .001 is reached in order to fit 
the lines to be moved into the space available between existing lines. If lines to be moved will not fit into the 
available space, the operation will halt, an error message will be displayed, and no text will be moved. 
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When text to be moved would overlap existing lines, line numbers must be changed before the GATHER 
command is used. One method of accomplishing this is with a HOLD command as follows: 

HOLD 10/15 (Hold 6 lines of text) 

DELETE 10/15 (Delete the 6 lines) 

GATHER 100/1500 TO 10 (Add 1401 lines between lines 10 and 15) 

FIND* 

ADD linenumber.ROLBJSiOW (Add the 6 lines held in the HOLD file to the end of the 1401 lines 

which were moved, linenumber = last line + increment in effect) 

To overritie the SET DELTA = increment in effect, the BY increment parameter is used in the GATHER 
command. 

To renumber all lines in the WORK file, the GATHER ALL command is used. New line numbo-s are assigned, 
starting with the SET FROM = linenumber in effect (default = 1). Each line is incremented by the SET 
DELTA = increment in effect (default = 1 if SET FORMAT = DEFAULT and 0.1 if SET FORMAT = COBOL). 
The new line numbers are not displayed. 

In an interactive session, a GATHER command (except GATHER ALL) can be terminated before it is complete 
by typing CONTROL Y. 

3-42. Limitations. EDIT/3000 will reject a GATHER command and print an error message if: 

1. A TO linenumber (or .linenumber) parameter is not provided. Exception: when a GATHER ALL com- 
mand is used, this parameter is optional. 

2. A linenumber specified in the TO portion of a GATHER command already exists in the WORK file. 

3. The SET DELTA = increment in effect cannot be adjusted by EDIT/3000 to allow as many line numbers 
as there are lines to be moved. 

4. A BY increment (or ^increment) parameter is specified that does not allow as many line numbers as there 
are lines to be moved. 



\ 
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3-43» Examples. Several variations of the GATHER command are shown in the following examples. The 
location of the pointer is illustrated at the conclusion of each GATHER command. 

• GATHER range TO linenumber BY increment 

The following example uses the command GATHER 8/11 to 2.1 BY .01 to move Hnes 8 through llto2.1,2.11, 
2.12, Eind 2.13. The pointer is located at the first position of the last line moved (2.13). Lines 8 through 11 are 
deleted. 

/LIST ALL 

1 1-2. WHAT IS EDIT/3000? 

2 

3 SOIT/3000 IS A SUBSYSTEM OF THE HP 3000 

A MULTIPROGPAMMING EXECUTIVE OPERATING SYSTEM 

5 eMPE/300a) THAT IS USED TO CREATE AND 

6. MANIPULATE ASCII FILES. 

7 

8 CHA^ACTEf^S^ STP.INGS OF CHaPACTEHS* OH ENTIRE 

9 LINES OF CHARACTERS CAN 3E INSERTED^ DELETED* 
l<^ REPLACED/ MODIFIED/ SEAPCHED FOR^ AND OTHERWISE 
II MANIPULATED BY USING EDlT/30g0 COMMANDS. 

/GATHER S/1 I TO 2*1 3Y -01 

8 => 2.1 

9 => 2,11 
13 => 2.12 
II => 2.13 

/FIND* 

2.13 MANIPULATED BY USING EDlT/3!?0fl COMMANDS. 

T< I ) 

/LIST ALL 

! 1-2. WHAT IS EDIT/330(5? 

2 

2.1 CHARACTERS/ STRINGS OF CHARACTERS/ OR ENTIRE 

S.n LINES OF CHARACTERS CAN BE INSERTED/ DELETED/ 

3.12 REPLACED/ MODIFIED/ SEARCHED FOR/ AND OTHERWISE 

?.13 MANIPULATED BY USING £DlT/30fl0 COMMANDS. 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

^ MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

5 CMPE/3!^03i THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES. 
7 

• GATHERQ range TO linenumber 

The next example moves lines 2.1,2.11, 2. 12, and 2. 13 from their present positions to a location starting at line 
7.1 and the GATHER ALL command renumbers all lines to integer-type numbers. The WORK file is now in 
the same condition as it was before the GATHER commands were used. 

/GATHERQ 2^1/5.13 TO 7-1 

/FlNDt" 

7.ii MANI'»ULATED DY USING EDIT/300^ COMMANDS. 
t<l ) 
/LIST ALL 

1 1-2. MAT IS EDIT/3303? 

2 

3 EDIT/3003 IS A S'JDSYSTEM OF THE HP 3000 

<i MTrLTI-'ROGOAMMINa EXECUTIVE OPERATING SYSTEM 

5 CMPE/3000) THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES. 
7 

7.1 CHARACTERS/ STRINGS OF CHA"ACTERS> OR ENTIRE 

7.2 LINES OF CHARACTERS CAN SE INSERTED/ DELETED* 

7.3 REPLACED/ MODIFIED/ SEARCHED FOR/ AND OTHERVISE 

7.4 MANIPTJLATED 3Y USING EDIT/30r)i^ COMMANDS- 
/3ATHE" ALLJLI5T ALL 

[ 1-9- '/HAT IS EDIT/3003? 

3 EDIT/3««0P' IS A SUBSYSTEM OF THE HP 30^50 

4 MnLTI=*°OG"AMMING EXECUTIVE OPERATING SYSTEM 
■i fKPE/37)3^) THAT IS USED TQ CREATE AND 

6 MANIPULATE ASCII FILES- 

7 

3 CHARACTER?/ 'STRINGS OF CHARACTERS/ OR ENTIRE 

9 LINES OF CHARACTERS CAN 3E INSERTED/ DELETED/ 

n ''ERLACEC/ XODIFIED/ ^^EA'^CHED FO^/ AND OTHSR^?I=E 

11 MANIR-''LATED :^Y U^ING EDIT/I'^'^'^ COMMANDS. 
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3-44. HOLD COMMAND 

3-45. Purpose. The HOLD command copies lines of text from the WORK file to the HOLD file. 
3-46. Form, The form of the HOLD command is 
H[OLD][Q][ [range] [,APPEND]] 

3-47. Description. The HOLD command is used to copy all or a portion of the WORK file contents into the 
HOLD file. A listing of all lines transferred into the HOLD file is displayed (unless the HOLDQ form of the 
command is used). The WORK file contents are unaffected. 

To clear an existing HOLD file of all contents, the HOLD (or H) command, with no range specified, is used. In 
an interactive session, EDIT/3000 will display the message 

CLEAR HOLD? 



If the response is YES (or Y), the HOLD file is cleared. Any other response is interpreted as NO. In batch mode, 
EDIT/3000 clears the HOLD file automatically. 

3-48, Limitations. If a HOLD file exists when a HOLD command is used, the contents of the existing 
HOLD file are deleted and replaced by the new contents unless the HOLD mnge, APPEND form of the HOLD 
command is used, in which case the new contents are added to the end of the existing HOLD file. If the 
APPEND parameter is not included with the HOLD command, the following message is displayed in an 
interactive session: 

CLEAR HOLD? 

If the response is YES or Y, the existing HOLD file is cleared. Any other response is interpreted as NO In 
batch mode, EDIT/3000 clears the HOLD file automatically. 

The HOLD command operates only within the column boundaries established by the SET LEFT and SET 
RIGHT margins in effect. See paragraph 3-92 for a discussion of the SET LEFT and SET RIGHT commands. 
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3-49. Examples. Several variations of the HOLD command are shown in the following examples. 

• HOLD range 

The following example uses the HOLD 1/6 command to create a HOLD file and copy lines 1 through 6 from the 
WORK file into this file. The lines are listed by EDIT/3000. 

The WORK file contents are not altered. 

/LI'^T ALL 

I 1-2. '^AT IS EOIT/30^a? 

3 EDIT/3fl<?^ I!> A SUBSYSTEM OF THE HO 33(53 

H MTJLTIPOOG^AMMING SXECUTIV/E O^EHATING SYSTEM 

5 CM^E/330(5) THAT IS 'JSED TO CREATE AND 

6 MANIDTJLATE ASCII FILES. 
7 

g CSA^^ACTEo^j ^T^INGS OF CHA'^ACTE9..S, OR ENTIPE 

9 LINES OF CHAHACTE^*: CAN BE IN5EPTED, DELETED^ 

n "ENLACED* MODIFIED* SEARCHED TQ^s AND OTHERWISE 

I 1 KANIDMLATED BY 'JSING EDIT/3^0'3 COMMANDS- 

/HOLD 1/6 
1-2. VHAT i^ £DIT/3fi:fl«? 

EDIT/H;!^<? I*: A <;'I9SYSTEM OF THE H" 3(?5J{5 
HTLTI^OG^AMMING EXECUTIVE O^E^ATING SYSTEK 
(MPE/3flC»3) THAT IS USED TO C^^EATE AND 
MANI^JLA^E A<;CII FILE^. 

• HOLDQ range 

The next command, HOLDQ 1/6, copies the same lines to the HOLD file but does not list the lines. Instead, the 
message 

HOLD FILE LENGTH IS 6 RECORDS 

is printed. 

Note that since a HOLD file exists, EDIT/3000 asks if it is OK to clear the HOLD file. 

/HOLDQ 1/6 

CLEAP HOLD? YE5 

HOLD FILE LZMGTH IS 6 ^ECC.D^ 

• HOLD range, APPEND 

The HOLD 8/11, APPEND command in the next example adds lines 8 through U to the end of the existing 
HOLD file. 

/HOLD 8/1 1#A??END 

CHARACTERS/ STPINGS OF CHAr!ACTEP9, 0^. ESJTIFE 
LINES OF CHAHACTEHS CAN BE INSERTED, DELETED, 
REPLACED, MODIFIED, SEAr^CHED FO?./ AND 0THEPUI3E 
MANIPLl-ATED BY US IMG EDI 7/ 3 00 ^5 COM :i AMDS. 

• CLEARING THE HOLD FILE 

To clear the HOLD file, the HOLD command, with no range specified, is used as illustrated in the following 
example. 



/HOLD 

CLEAR HOLD? Y 



\ 
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3-50. INSERT COMMAND 



3-51. Purpose. The INSERT command inserts character strings or lines of text into the WORK file at a 
specified position, irrespective of line boundaries. 

3-52. FornL The form of the INSERT command is 



I[NSERTJ[Q] [position] [ 



BY 



[increment]] [,][HOLD[Q] [»][NOW]] 



3-53. Description. The INSERT command is used to insert character strings in a line of text in the WORK 
file or to insert complete lines of text in the WORK file. 

In an interactive session, EDIT/3000 prompts by displaying the line number referenced in the position 
parameter and the contents of the line, then displays an arrow under the column, if a column was specified in 
the position parameter. (If the Q parameter is included in the INSERT command the prompt is not displayed.) 
A specific column in a line is specified in the position parameter by enclosing the column number in 
parentheses. For example, 

INSERT 5(10) 

references the 10th column of line 5. 

If no column is specified, as in INSERT 5, the leftmost column is assumed by EDIT/3000 as determined by the 
SET LEFT = colnum option in effect (default = column 1). If a column number that is outside the SET LEFT, 
SET RIGHT options in effect is specified, the INSERT command will not execute and EDIT/3000 will display 
an error message. (See paragraph 3-92 for a discussion of the SET command.) If the text generated using an 
INSERT command consists of more characters than are allowed in a line, new lines are created by EDIT/3000 
to accommodate the excess characters (and the existing line). In this case, the Editor attempts to break the 
line at a blank character. New line numbers are determined by the SET DELTA = increment option in 
effect. The SET DELTA option can be overridden with the BY increment (or ^increment) parameter of the 
INSERT command. 

If new lines are being inserted before a particular line in the WORK file, the insert command saves that line. 
This saved line is then added after the new lines, once control Y has been pressed (see example 2 below). If 
the SET DELTA^incremcM^ option in effect (or the BY increment parameter) does not allow enough new 
line numbers to be added when new lines are being inserted, EDIT/3000 will insert new lines until it can no 
longer add new line numbers, then terminate the INSERT mode and print an error message, as well as the 
saved line which was lost from the work file. See the example of this in paragraph 3-55. 

In an interactive session, the INSERT command may be terminated with CONTROL Y or // in any one of four 
ways: 

1. Press CONTROL Y after the last character has been inserted and before RETURN is pressed, as follows: 



1 LINE 1 OF WORK FILE 
a LINE 2 OF WORK FILE 

3 LINE 3 OF WO»K FILE 

4 LINE 4 OF VO?^K FILE 

5 LINE 5 OF UO*lK FILE 
/INSERT 2 

2 LINE 2 OF VORK FILE 
TCONTROL Y IS PRESSED gEFC^E RETURNLINE 2 OF WORK FILE 

/LIST 2/3 

2 CONTROL Y IS ot^ESSED BEFORE RETURNLINE 2 OF WORK FILE 

3 LINE 3 OF WORK FILE 



^ 
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The characters are inserted on the same line as the line specified (2) in the position parameter. No 
characters will be moved to the next line unless more characters are inserted than the length of the line 
can accept. 

2. Press CONTROL Y after the last character has been inserted and after RETURN is pressed, as follows: 



3 LINE 3 OF tfO*lK FILE 

'CONTROL Y IS PRESSED AFTEP o.ETfJON [CR)(YC] 

3.1 LINE 3 OF UQP.K FILE 

/LIST 3/4 

3 CONTROL Y IS PRESSED AFTER «ETURN 

3.1 LINE 3 OF UOPK FILE 

fl LINE a or VORK FILE 



The text to be inserted replaces the line specified in the position parameter and the text previously 
contained in this line is given a new line number. Thus, the INSERT command caused a new line to be ^ 
inserted before an existing line. " 

3. Enter // after the last character has been inserted and before RETURN is pressed, as follows: 



/INSERT 3 

3 LINE 3 OF VOPK FILE 

t// IS ENTERED BEFORE RETURN // (CR^ 

LINE 3 OF WORK FILE 
/LIST J/A 

3 //IS ENTERED BEFORE RETURN LINE 3 OF WORK FILE 

A LINE 4 OF VOT'K FILE 



Entering // in this manner has the same effect as that described for CONTROL Y in example 1. 
4. Enter // after the last character has been inserted and after RETURN is pressed, as follows: 



/INSERT 1 

1 LINE I OF UORK FILE 

t// IS ENTERED AFTES RETURN (CR] 

1.1 // 

LINE 1 or WORK FILE 
/LIST' 1/2 

1 //IS ENTERED AFTER RETURN 
1 .1 LINE 1 OF WORK FILE 

2 LIME 2 OF VORK FILE 



Entering // in this manner has the same effect as that described for CONTROL Y in example 2. 

In batch mode, only // may be used either as the last two characters in a line of characters to be inserted or as 
the only two characters in a record. The results are the same as shown in the preceding examples 3 and 4. 

3-54. Limitations. Text can only be inserted in a line beginning at a column within the SET LEFT, SET 
RIGHT margins established for that line. An existing line number must be specified in the position param- 
eter for the INSERT command (unlike the ADD command, which can specify ADD 5.1 to insert tiie line 
5.1 between the existing lines 5 and 6). 
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3-55. Examples. The following examples show several variations of the INSERT command. The location 
of the pointer is illustrated after the conclusion of each INSERT command. 

• INSERT linenumber 

The following example illustrates how to insert a line into the WORK file. To insert a new line before line 7, 
the command INSERT 7 is used. EDIT/3000 prompts with the number 7 and the new line is entered and 
RETURN is pressed. When 7.1 is displayed by EDIT/3000, // is entered. The pointer is located at the first 
position of line 7.1, which is the old line 7. 

The LIST 6/8 command shows the positions of the inserted line and the previous line 7. 



/LIST ALL 

1 l-a. WHAT IS EDlT/303a? 
2 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

4 MULTIPR0GT?AMMING EXECUTIVE OPERATING SYSTEM 

5 (MPE/3909> THAT IS USED TO CllEATE AtrfD 

6 MANIPULATE ASCII FILES. 
7 

B CHARACTERS* STRINGS OF CHARACTERS* OR ENTIRE 
9 LINES OF CHARACTERS CAN BE INSERTED* DELETED* 

10 REPLACED* MODIFIED* SEARCHED FOR* AND OTHERWISE 

11 MANIPULATED BY USING EDIT/3000 COMMANDS- 
/INSERT 7 

7 

t(EDIT/3000 COMMANDS ARE USED.) 
7-1 // 

/riND* 

7.1 

TC0 ) 

/LIST 6/8 

6 MANIPULATE ASCII FILES. 

7 (EDIT/3000 COMMANDS ARE USED-) 
7.1 

8 CHARACTERS* STRINGS OF CHARACTER?* OR ENTIRE 



The following example illustrates the error message which is printed if the SET DELTA=f>icrement option 
in effect does not allow new line numbers when new lines are being inserted. TEST is listed and INSERT 
1.998 is used to insert two new lines. A carriage return is pressed after each line. Since the SET DELTA= 
increment option does not allow any more new line numbers, a warning message is printed out, as well as 
the saved hne (the line originally on line 1.998) which is now lost from the WORK file. 



/T TEST 










/LIST ALL 










1 


THIS 


IS LINE ONfc 






1.998 


THIS 


IS A LINK INHFTWfEN 




2 


TUTS 


IS lime; two 






/INSERT 1. 


,"5<?B 








1.998 


THIS 


IS A UHL INliETWEEN 






-abcdefghUaLmshp 






1.999 


123456789 






MM MftHNlNG - 


i,l:<K hPOUOhT FURwAkl; 


Lfjsr: 


THIS IS A 


LIML- 


INderWCEM 






• 15*CnM»AHD HILL NOT REprAO-: 


OP UTERLEIAVE LINES 


/LIST ALL 










t 


THIS 


IS LINE riNt 






l,99R 


ABCDFFGHIJKL*'N0P 






1.999 


1234567H9 






2 


THIS 


IS LINE TWO 






/END 










If IT IS 1 


OK TO 


CLHAK KESPONU 


-YtS« 




CLEAR? tFS 
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• INSERT colnum 

To insert text before a position in a line, the position number is specified in parentheses as shown in the next 
example. 

The text (HELD,) is entered and // is entered before RETURN. 



/INSERT 10(20) 

U T^EOLACED^ MODIFIED, SEARCHED FOP* AND 0THEPU1?E 

T HELD* // 
SEARCHED FOP.* AND OTHERWISE 
/FIND • 

10 REPLACED* MODIFIED* HELD* SEARCHED FO", AND OTHERWISE 

(£7 3» 
/LIST J9/II 

)0 REPLACED* MODIFIED^ HELD, SEARCHED F0°^ AND OTHERWISE 
I J MANIPULATED 3Y USING £DIT/3a3C5 COMMANDS. 



• SPUTTING A LINE INTO TWO LINES 

If you wish to make two lines out of an existing line, use the INSERT command as shown in the following 
example. 

The FINDQ FIRST;FIND "OPERATING" commands locate the desired position where the line is to be split. 

Entering the INSERT 4(28) command and then // after RETURN creates a new line (4.1) and the previous line 
4 is now two lines. 



/FINDO flPSTJFlND "OPERATING" 

4 MULTIopOGRAMriNG EXECUTIVE OPERATING F^YSTEM 

C28 )» 
/INSERT 4<28) 

A MULTIPROGRAMMING EXECUTIVE QoEPATING SYSTEM 

t 
4.1 // 
0DE^.AT1NG SYSTEM 
/LIST A/5 

4 MULTl^o.OG^AMMING EXECUTIVE 
4i.J OPERATING SYSTEM 

5 (MOE/3?(i3) THAT IS USED TO CREATE AND 



Another way to accomplish the same thing is to use the FIND "OPERATING" and INSERT * commands, then 
enter // after RETURN. For example 



/FINOT FIR*;t;FIND "OPE'^ATTNG" 

4 MTJLTIOPOG°AMMING EXEC'JTI'/E OPERATING <:y<;tEM 

(23 ) t 
/!N<?E9T * 

4 MMLTIP^OGRAMMING EXECUTIVE O^E^ATING SY<;t£M 

T 

4-1 // 

QoE^ATING SYSTEM 
/L15T 4/5 

4 MULTJOPOGRAMMING EXECUTIVE 
4»I OPERATING SYSTEM 

5 <MPE/3003> THAT IS USED TO CREATE AND 



\ 
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INSERT linenumber MOLD 



When the INSERT linenumber, HOLD form of the INSERT command is used, text is entered from the input 
file and, when the end of this text is signalled, the contents of the HOLD file are inserted. 

Note from the example below that EDIT/3000 compresses the contents of the HOLD file by adding words 
from the next record to the current record. (The word *'LINES" from the second record is added to the end 
of the first record, and "REPLACED** from the third record is added to the end of the second record.) When- 
ever an insertion from the HOLD file is made, it is similar to a justification process. The EDITOR tries to fill 
out lines with words up to the RIGHT margin. If the line is longer than the value of the RIGHT parameter, 
the EDITOR breaks it at a blank and inserts the remainder on the next line. If the new line becomes full, the 
EDITOR breaks it to continue on the next line and so forth. If the HOLD file contains a blank line, it 
causes the current line to be completed but no blank line is inserted into the work file. Insertion would then 
continue to the next line. If the HOLD file has two blank lines, only one blank line gets inserted. If the 
HOLD file has three blank hnes, 2 blank lines are inserted and so on. 

The original line 5 starts at the end of the last HOLD file record. (The string (MPE/3000) from the original line 
5 is appended to the end of the last HOLD file record entered into the WORK file.) 



/LI-:? ALL 

1 1-a. WHAT I? EDIT/3<!(^3? 

2 

3 SD1T/3!5C!3 1? A S'JBPYSTEM OF THE HP 3<S'PI(^ 

4 MMLTIooOGP.AMMING SXECUTlVE QoESATING SYSTEM 

5 (MBE/3300> THAT IS U?ED TO CREATE AND 

6 MANIOMLATE A?CII FILES. 
7 

S CHARACTERS* STT?INGS OF CHA^ACTE^S^ 09 ENTIRE 

9 LINE? OF CHAPACTEPS CAN BE IN?E»TED> DELETED/ 

\yi REPLACED* MODIFIED^ SEARCHED FO*^^ AND OTHETIWISE 

11 MANIPULATED BY USING ED1T/33(1«^ C0MMAND5. 

/HOLOO a/I!5 

HOLD FILE LENGTH IS 3 P.ECQRDS 

/IN<:mTn 5/HOLDO 

C MPE/3000) THAT IS USED TO CREATE AND 

'THE HOLD FILE CONTENTS WILL BE IN5E^TED 

AFTER TEXT FROM THE TE*?MINAL I« ENDED 

BY ErJTERING DOUBLE SLASH OR CONTROL Y. 

// 

CHARACTERS/ STRINGS OF CHARACTER^/ OR ENTIRE LINES 

OF CHARACTERS CAN SE INSERTED/ DELETED-. REPLACED^ 

MODIFIED-. SEARCHED FQo^ AND OTHERWISE (MPE/3^?)f5> 

THAT IS USED TO CREATE AND 

/LIST 5/6 

5 THE HOLD FILE CONTENTS VILL 3E INSERTED 
5.1 AFTER TEXT FROM THE TERMINAL IS ENDED 
5.S 9V ENTERING DOUBLE SLASH OR CONTROL Y. 

5.3 CHARACTERS^ STRINGS OF CHARACTERS, OR ENTIRE LINES 
S»H OF CHARACTERS CAN 3E INSERTED/ DELETED/ RE^LACEO^ 

5.5 MODIFIED/ SEARCHED FOR* AND OTHERVISE CM^E/3000) 

5.6 THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES. 
/£ 
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• INSERT linenumher, HOLD, NOW 

When this form of the INSERT command is used, the HOLD file contents are inserted before the line specified 
in the linenumber parameter and no text is inserted from the input file first (as it was in the previous 
example). 

Note that the HOLD file contents, however, are compressed the same as in the previous example. 

/LI ST ALL 

1 J -2. '-JMAT IS EDlT/30a!3? 

3 EDIT/3^0:^ IS A SUBSYSTEM OF THE H^ 3a<33 

4 MtjLTlPPOGHAMMING EXECUTIVE OPERATING SYSTEM 

5 CMPE/30553) THAT IS 'J5ED TO CREATE AND 

6 MANIO'JLATE ASCII FILES. 
7 

S CHARACTERS* STRINGS OF CHARACTERSj OR ENTIRE 

9 LIMES OF CHARACTERS CAN 3E INSERTED* DELETED/ 

10 oE»LACED/ MODIFIED* SEARCHED FOR* AND OTHERWISE 

11 MANIPrjLATED 3Y USING EDI T/33^3 COMMANDS- 
/HOLOn 3/!fl 

HOLD FILE LENGTH IS 3 RECORDS 

/INflEPTn S^HOLDT^NOW 

CHARACTERS* STRINGS OF CHARACTERS* OR ENTIRE LINES 

OF CHARACTERS CAN BE INSERTED/ DELETED/ REPLACED/ 

MODIFIED* SEARCHED FOR/ AND OTHERWISE CMPE/3330) 

THAT IS USED TO CRtATE AND 

/LIST 5/6 

5 CHARACTERS^ S^^RlNGS OF CHARACTERS/ OR ENTIRE HNE5 

5.1 OF CHARACTERS CAN BE INSERTED/ DELETED/ REPLACED/ 

5.2 MODIFIED/ SEARCHED FOR* AND OTHERWISE CMPE/3(9fl0) 
5-3 THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES- 



^ 
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3-56. JOIN COMMAND 



3'57, Purpose. The JOIN command appends or merges the contents of another MPE/3000 file into the 
WORK file. 



3-58. Form. The form of the JOIN command is 



J[OIN][Q] [filename] 



{linenumber[/linenumber\ ) 
i#recnum/#recnum ) 



< >j/menwm&er)[< \increment]] ([,] UNN[UMBERED] 



The second occurrence of the linenumber is optional. If only one linenumber is specified, the entire file, 
starting with that linenumber, is joined. If no linenumber or #recnum is mentioned, the range of the JOIN 
command would include all of the records of the file. If the ^recnum form is used and onlv one record 
is to be joined, the same ^recnum must appear on both sides of the slash mark. 

For example, 

JOINQ ADDFILE (2/234) TO 34.001 BY .001 

3-59. Description. The JOIN command is used to copy into the WORK file all or a portion of an MPE/ 
3000 file to which you have access. 

If the SET FORMAT = DEFAULT option is in effect, EDIT/3000 assumes that the first or last eight bytes 
(depending on whether FRONT or REAR is currently set) of each record in the file to be copied contain 
the sequence number. If the SET FORMAT = COBOL option is in effect, EDIT/3000 disallows the SET 
REAR option and assumes that the first six bytes of each record in the file contain the sequence numbers. 
In either case, these bytes are not copied into the WORK file. If these bytes contain text that should be 
copied in the WORK file (as is usually the case with an unnumbered file), you will want to use the UNN 
option with the JOIN command to copy the entire record of each line. Alternatively, you may use a SET 
command with the appropriate SET options for the bytes which are to be copied. See paragraph 3-92 for 
a discussion of the SET command. 

EDIT/3000 assigns new line numbers to all lines copied by a JOIN command. If the TO linenumber (or 
Mnenumber) parameter is not specified, the new line numbers start with the value currently set for FROM 
(see paragraph 3-92 for a discussion of the SET command) or with the first available line in the WORK file 
(the last linenumber in the WORK file incremented by DELTA). If the TO parameter is used, the linenum- 
bers start with the number specified. Succeeding lines are incremented by the SET DELTA = increment 
option in effect or by the BY increment (or ^increment) parameter specified in the JOIN command. 

In an interactive session, each line copied is displayed on the terminal (unless the Q parameter is included 
with the command). You may terminate the JOIN command by entering CONTROL Y. Any lines copied before 
CONTROL Y is entered remain in the WORK file. 

The contents of the joined file are unaffected. 
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3-60. Limitations. Any file to be copied into the WORK file with a JOIN command must 

1. Consist of ASCII-coded records. 

2. Have a filecode of from to 1023, 1040 XLSAV, 1060 RJEPN, or 1052 EDTCT. (See the MPE Com- 
mands Reference Manual for a discussion of filecode.) 

3. Be available to you for read access. (See the MPE Commands Reference Manual) 

4. Exist as a disc -resident temporary or permanent file. 

Note: If the file to be copied is on a device other than disc (such as a magnetic 
tape device), use the MPE/3000 File Copier to copy the file to disc. 

Records copied from the JOIN file are entered into the WORK file within 
the limits established by column 1 and the value of the LENGTH para- 
meter. If the length of records in the JOIN file is greaterthan the WORK 
file LENGTH limit in effect, the JOIN file records will be truncated to 
the WORK file length when they are joined. 

If one very large or many smaller files are to be joined, use the SET 
SIZE command (see paragraph 3-92) to establish a large enough WORK 
file before using the TEXT command to text in the main file. 

If the JOIN command is attempted on a KSAM file (see the KSAM/3000 Reference Manual), the foUowing 
warning message is produced: 

* * * * WARNING FILE IS KSAM 

KSAM files are joined according to the primary key order. If the (linenumber/linenumber) range is specified 
and the line numbers are not the primary key, the results will be unpredictable, 

3-61. Examples. Several examples of the JOIN command are presented in the following examples. The 
location of the pointer is shown at the conclusion of each JOIN command. 

• JOIN filename (linenumber/linenumber) 

The following example joins line numbers 2 through 4 from the file ADDFILE to the WORK file starting at 
line 2.1. 



/TEXT 40PKILF 










/LIST »LL 












1 


LINE 


1 


or 


JOTM 


FILF 


2 


MNC 


2 


Of 


JOTN 


FTLF 


3 


LINE 


3 


OF 


JOJ'J 


FILF 


4 


MNL 


4 


OF 


JOTN 


FTLE 


5 


LINE 


5 


OF 


JOIN 


flLF 


/TEXT FILE 










/LIST ALL 












1 


LINE 


1 


OF 


WO*»K 


FILE 


a 


LINE 


2 


OF 


WORK 


FILE 


3 


LINE 


3 


OF 


VORK 


FILE 


4 


LINE 


4 


OF 


VORK 


FILE 


5 


LINE 


5 


OF 


WORK 


FILE 


/JOIN ADDFILE (2/4) 


TO 2. 


.1 SY 


2.1 


LINE 


2 


OF 


JOIN 


FILE 


2.2 


LINE 


3 


OF 


JOIN 


FILE 


2.3 


LINE 


^ 


OF 


JOIN 


FILE 


/FIND* 












2-3 


LINE 


M 


OF 


JOIN 


FILE 


/LIST 2/3 












2 


LINE 


o 


OF 


UO?K 


FILE 


^.l 


LINE 


o 


OF 


JOIN 


FILE 


?.2 


LINE 


3 


OF 


JOIN 


FILE 


2.3 


LINE 


4 


OF 


JOIN 


FILE 


•J 


LINE 


3 


OF 


UO^K 


FILE 



(61 ) t 
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• JOIN filename {^recnuml ^recnum) 



To join logical record numbers from a file to the WORK file, the (^recnumf ^recnurn) rangelist form is used as 
in the following example. 

Note that line numbers 1 through 3 (which are logical record numbers through 2) are added to the WORK 

file. 

/JOIN ADOFILE i*P'/*,(l TO 3.1 



3.1 


LINE 


1 


OF 


JOIN 


FILE 


3. a 


LINE 


2 


OF 


JOIN 


FILE 


3.ri 


LINE 


3 


OF 


JOIN 


FILE 


/FIMD * 












3-3 


LINE 


3 


OF 


JOIN 


FILE 


/LIST 3/4 












3 


LINE 


3 


OF 


WOP.K 


FILE 


3.1 


LINE 


1 


OF 


JOIN 


FILE 


3r2 


LINE 


^ 


OF 


JOIN 


FILE 


3«3 


LINE 


3 


OF 


JOIN 


FILE 


4 


LINE 


a 


OF 


yOP.K 


FILE 



• JOINQ 

If the JOIN filename form with no rangelist is used, as in the following example, the entire contents of the 
JOIN file are added to the end of the WORK file. 

In addition, since the TO linenumber was not included, the JOIN file contents are copied to the end of the 
WORK file. 



/LITT ALL 










I 




LINE I 


OF 


VO^K 


FILE 


1 




LINE ^ 


OF 


VQOK 


FILE 


3 




LINE 3 


OF 


'.■'0"K 


FILE 


4 




LINE <i 


OF 


yo«K 


FILE 


*5 




LINE 5 


OF 


yo^x 


FILE 


/JOIM^ 


AODFILE 








N'.WBEn. 


OF 


LINE*^ JOINED =^ 


5 


/FIND* 












l<i 




LINE S 


OF 


JOIN 


FILE 


/LIST ALL 










1 




LINE 1 


OF 


WORK 


FILE 


?. 




LINE 2 


OF 


WORK 


FILE 


3 




LINE 3 


OF 


VO^K 


FILE 


A 




LINE U 


OF 


WO^K 


FILE 


5 




LINE 5 


OF 


VOPK 


FILE 


4 




LINE 1 


OF 


JOIN 


FILE 


7 




LiNs a 


OF 


JOIN 


FILE 


3 




LINE 3 


OF 


JOIN 


FILE 


9 




LINE 4 


OF 


JOIN 


FILE 


1(1 




LINE 5 


OF 


JOIN 


FILE 
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3-62. KEEP COMMAND 

3-63, Purpose. The KEEP command saves the contents of the WORK file. 

3-64. Form. The form of the KEEP command is 

K[EEF][filename [(range)] [,UNN[UMBERED] ]] 

or 

K[EEP] Q filename 

For example, 

KEEP KFILE (45/678),UNNUMBERED 



3-66. Description. If the filename parameter of the KEEP command refers to a new file, a file is opened 
under this name by MPE/3000, and the WORK file contents are stored on disc in this file. When range ia 
specified in a KEEP command, only those lines in the WORK file specified by range are saved, (If a colunm 
number is specified in range, the entire line containing that column is saved.) 

The file specified by filename must be in the log-on account. 

In an interactive session, if an existing file is named in the KEEP command, EDIT/3000 asks if you wish to 
purge the old contents of the file. A positive response (YES or Y) causes the contents of the old file to be purged 
and the contents of the WORK file to be written into the kept file. Any other re^onse terminates the KEEP 
operation. 

If the KEEP command is used without any parameters, the filename is implied from the previous KEEP or 
TEXT command (whichever was performed last). If the UNNUMBERED option was specified in the previous 
KEEP or TEXT command, then this is also implied for the current KEEP command. EDIT/3000 produces 
an echo of the filename (and possibly the UNNUMBERED option) and copies the entire WORK file con- 
tents to that file. 

The following example shows tiie KEEP command used without any parameters. In this case, both the 
filename and the UNNUMBERED option are implied: 

JCDITOP 

HP32201A^7.01 EDIT/3000 WED, MAY 3, 1978^ 1:33 PM 

(C) HeWLETT-PftCKAFD CO. 1976 

/TEXT KfcPFILfONN 

/a 

4 modifications 

5 more: to come 

6 • « • 

/K 

KEPFIL#UNN 
KEPFIL ALREADY EXISTS - RESPOND YES TO PURGE OLD AND THEN KEEP 
PUPr,E OLD?Y 
/END 

END OF SUBSVS1EM 
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Another example follows. This time only the filename is implied: 

:editor 

HP32201A,7,01 EDIT/3000 WED, MAY 3, 1978, 1:43 PM 
(C) HEWLETT-PACKARD CO. 1976 
/TEXT KEPFIL 
/A 

7 several changes In addition 

8 MORE TO COME 
9 

/K 

KEPFIL 
KEPFIL ALREADY EXISTS • RESPOND YES TO PURGE OLD AND THEN KEEP 
PURGE 0LD7Y 
/END 
END OF SUBSYSTEM 

If the file in question beloi^s to a group and/or account other than that of the log-on account, the file- 
namey group, and account are echoed. * 

In batch mode the contents of the old file are purged automatically when an existing old file is named in a 
KEEP command. 

Records in the WORK file are saved as fixed-length records unless the SET VARIABLE option of the SET 
command is used, in which case the records are saved as variable-length records. (See paragraph 3-92 for a 
discussion of the SET command.) 

An MPE/3000 error message is displayed if access to a file is not possible. Seethe MPE Commands Re ference 
Manual for a discussion of file access. 

Unless the UNNUMBERED parameter is specified in the KEEP command, the line numbers in the WORK 
file are placed in the kept file in ASCII format. The SET FRONT, SET REAR, and SET FORMAT commands 
determine where the line number information will be kept (front or rear of each record). See paragraph 3-92 
far discussions of these commands. Line numbers in the WORK file are not copied to the kept file when the 
UNNUMBERED parameter of the KEEP command is declared. 

Note that the default KEEP file is limited to disc files on the local computer. If a device or remote file 
is being used, an MPE file equation must have been issued and an asterisk (*) must be used to back -reference 
the file. (See the example of keeping to a card punch device in paragraph 3-67.) 

The KEEPQ filename conunand saves the WORK file in its "edit" format, instead of in the format in which 
files normally are stored by the MPE/3000 file system. This is accomplished by appending EDIT/3000 
variables to the fUe and assigning a filecode of 1050 or 1051 to the file. A filecode of 1050 signifies an 
EDIT/3000 KEEPQ file (non-COBOL) and a filecode of 1051 signifies an EDIT/3000 KEEPQ file (COBOL). 
All such files are intended to be read only by EDn/3000 although KEEPQ files can also be read by SPL/ 
3000. To add the lockword to the new file would require EDIT/3000 to save it internally and thus cause 
a possible security violation. 

3-66. Limitations. The range and UNNUMBERED parameters of the KEEP command may be used only 
with the KEEP filename (or K filename) variation of the KEEP command. These parameters may not be used 
with the KEEPQ filename (or KQ filename) variation of the command. 
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Note that the KEEP command does not put a lockword on the file unless you explicitly specify one. For 
example, suppose you have a file named MYFILE with the lockword LOCKED. Issuing the command 
KEEP MYFILE/LOCKED will purge the old file and put the lockword LOCKED on the new file. However, 
if you issue the command KEEP MYFILE or if you issue the command K[EEP] with no parameters, you 
will be prompted for the lockword and EDIT/3000 will purge the old file (if you have supplied the correct 
lockword) and create a new file named MYFILE without a lockword. 

A TEXT command (see paragraph 3-98) to copy the contents of an EDIT/3000 KEEPQ file into the WORK file 
renames that file with an EDIT/3000 Knnn name. To prevent destruction of such a file, enter the commands 
TEXT filename and KEEP filename in succession. 

If SET FIXED is in effect, the KEEP file will have 

record size = SET LENGTH if the file is unnumbered 

record size = SET LENGTH + 6 bytes if the file is numbered in the COBOL format 

record size = SET LENGTH + 8 bytes if the file is numbered in the default format 

The blocking factor is calculated to allow the optimal trade-off between disc space used and time required 
for input-output. 

If SET VARIABLE is in effect, the KEEP file will have 

record size = 1276 bytes 
blocking factor = 1 

Using this large record size maximizes the disc space used by allowing many variable-length records to be 
entered in a single block. 

Any of these attributes can be overridden by back-referencing a file equation for the KEEP file in the KEEP 
command. 

Note: If a file equation is used to decrease the record size for a variable- 
length file, it may be necessary also to include the DISC parameter 
to increase the file limit. The default limit allows only as many blocks 
as are necessary to store all records when the block size is 1276 bytes. 

Trying to KEEP a numbered file which is greater than 256 bytes wide (including 8 bytes for sequence 
numbers) will result in error #75, RECORDS TOO WIDE - KEEP UNNUMBERED. 
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3-67. Examples. Several variations of the KEEP command are shown in the following examples. 

• KEEP filename 

The first example uses the KEEP EDIT2 command to keep the file EDIT2. Because ED1T2 is an existing file. 
EDIT/3000 asks if it is OK to purge the old file. 



HD3220tA,i:i.3l EDIT/3'3a'1 WED* MAY l^- 1975* l\i\2 "M 
/T ED1T2JL ALL 

! 1-2. WHAT I? EDlT/.l??^^? 

2 

3 EDlT/a.^-^;! 15 A <^IJB<JVSTEK OF THE H^ Sfl'^^ 

4 M'JLTl^'^OG RAMMING EXECUTIVE O^S^'ATlNG ?>YSTEM 

5 lM^£/330^) THAT IS USED TO CPEATE AND 

6 MANIPULATE ASCII FILES. 
7 

e CKAPACTE«IS, STRINGS OF CHARACTERS, Qtt ENT19E 
9 LINES OF CHARACTERS CAN BE INSE^TED^ DELETED* 
13 REPLACED, MODIFIED, ?EA''CHED FOH, AND 0THE1UISE 
11 MAN1">'JLATED BY 'JSING EDlT/3i?3'3 COMMANDS. 
/KEEo EDIT2 

EDIT2 ALREADY EXISTS - RESPOND YES TO ^U^GE OLD AND THEN KEE» 
BURGE 0LD7Y 



• KEEP filename (range) 

The KEEP range form, as in the following example, keeps only those lines specified in range (lines 8 through 
11 in the example). 

Note: SET SHORT was used in the next three examples. 



/KEEP TEST <8/ll ) 
/TEXT TEST 
CLEAfl? Y 
/LIST ALL 

8 CHARACTERS, STRINGS OF CHARACTERS- OR ENTIRE 

9 LINES OF CHARACTERS CAN BE INSERTED, DELETED, 

10 REPLACED, MODIFIED, SEARCHED FOR, AND OTHERWISE 

11 MANIPULATED BY USING EDIT/3000 COMMANDS. 



• KEEP filename, UNNUMBERED 

When the KEEP filename, UNNUMBERED form of the KEEP command is used, as in the following exam- 
ple, the file can be copied back into the work fUe either with a TEXT filename, UNNUMBERED or a TEXT 
filename command. 

Note that EDIT/3000 assigns line numbers to the unnumbered file TEST (as shown by the LIST ALL 

conmiand). 

/KEE« TEST^UNNUMBEPED 

7URGE 0LD7Y 

/TEXT TESTWJNNUMBERED 

/LIST ALL 

1 CHARACTERS* STRINGS OF CHARACTERS, OR ENTIRE 

2 LINES OF CHARACTERS CAN BE INSERTED, DELETED, 

3 REPLACED, MODIFIED, SEARCHED FOR, AND OTHERWISE 
a MANIPULATED BY USING EDIT/3000 COMMANDS- 



< 
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SEQUENCING INFORMATION 



When the KEEP filename form of the KEEP command is used, EDIT/3000 appends eight bytes to the end of 
each record for sequencing information. When the TEXT file is copied back into the WORK file with a TEXT 
filename command, these eight bytes are deleted by EDIT/3000; however, if you do not wish the information 
contained in the eight bytes to be saved in the TEXT file, use the KKE'? filename, UNNUMBERED form of the 
KEEP command. 

In the next example, the SET RIGHT and SET LENGTH options are set to 52, then lines 1 through 10 of the 
WORK file are saved under the filename TEST. Once EDIT/aOOO operation is terminated, the MPE/3000 
command:LISTF TEST,1 shows that the length has been increased by eight bytes to 60 bytes. 



I EDITOR 

H03aaaiA.4.ai EDir/saea tue* jun 3- 1975* 3:13 pm 

/S short;? EDIT3iL 1/10 

I 1-2. WHAT IS EDIT/30007 

2 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 

A MULTIPHOGRAMMING EXECUTIVE OPERATING SYSTEM 

5 (WPE/3a00) THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES- 
7 

8 CHARACTE<*S* STRINGS OF CHARACTERS* OR ENTIRE 
* LINES OF CHARACTERS CAN BE INSERTED* DELETED* 
10 REPLACED* MODIFIED* SEARCHED FOR* AND OTHERWISE 

/S RIGHT»52*LENGTH-52 

/K TESTd /Ifl) 

PURGE 0LD7Y 

/E 



END OF SUBSYSTEM 
iLISTF TEST* I 
ACCOUNT* SOODWIN GROUP= PUB 




LOGICAL RECORD 

TYP EOF LIMIT 



length 

• KEEPQ filename 

The next example demonstrates the use of the KEEPQ command. In the first part of the example, the TEXT 
file EDIT2 is copied into the WORK file and listed. The VERIFY FILES command shows a WORK file of 
K18111336 and the MPE/3000 LISTF command displays the file parameters. 

In the second part of the example, the same file is copied into the WORK file and listed. Then the KEEPQ 
command is entered. Note that now when the VERIFY FILES is entered, there is no entry for the WORK file 
and an attempt to LIST ALL results in the error message 

UNDEFINED TEXT 

The MPE/3000 LISTF command shows that EDIT2 now has afilecode of 1050 (an EDIT/3000 KEEPQ file). 
Such a file can be read only by EDrT/3000 and can be used for no other purpose (no other EDIT/3000 commands 
will execute for such a file. For example, the LIST ALL command would not execute.) 
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The last part of the example shows how to use such a file, by entering the TEXT filename and KEEP filename 
commands in succession. Now the LIST ALL command executes. 



t EDI TO". 

jro32??lA./j,fll EDIT/3333 MOM, JUM 33, 1975^ 1:36 OM 
/SET SHOf^TJTEXT cDIT3;LI5T ALL 

1 LIME I OF WO^K FILE 

2 LINE 2 OF WORK FILE 

3 LINE 3 OF V07K FILE 

4 LINE ii OF yO"K FILE 

5 LINE 5 OF yO^K FILE 
/VH:7iri' FILES 

FILE?;: 

WOPK: K]S1 1336 

TE?<T; EDITS .PU3.G00DVIN MOM, JIJN 30* 1975* 1:36 »« 

JOIN: 

/EWD 



EWD OF SUBSYSTEM 
: LISTF EDITH*2 
ACCO'JNT= GOODWIN GnO'JP= PUB 



FILEmKE 


CODE 


SIZE 


'LOGICAL FIECOP.D- 

TYP EOF 


EDIT2 




333 


FA 5 


i EDITO^^ 









SPACE ACC 

LIMIT R/a SECTORS #X MX 



5 16 10 1 1 ??? 



H"3223IA.4.ai EDIT/3393 HON* JFJN 30* 1975* ll38 PM 
/SET SH07TJTEXT EDITSiLlST ALL 

1 LINE I OF ya?.K FILE 

2 LINE 2 OF yO'^K FILE 

3 LINE 3 OF '•fOr>K FILE 
^ LINE 4 OF WORK FILE 
5 LINE 5 OF UOP.K FILE 

/KEEWJ EDIT2 
P 'JTRGE aLD?Y 
/7EPIFY FILES 
F ILES: 

VO«Ki 

KEEPi EDITS MON* JUN 3^* 1975* 1:39 PM 

TE:><T: EDIT2.°U3.GOODVIN MON, JL'N 33* 1975* 1:39 PM 

JOIN: 
/LIST ALL 

*43*'|NDEnrJED TEXT 
/EINO 

END OF ^'JBSYSTEK 
:LI?TF EDIT2*2 
ACCO'.*JT= " GOODVIN 



I 



FI LE^*\ME 


CODE 




LOGICAL «£COPD 


??PACE ACC 






SITE 


Tvo EOF LIMIT ^/D 


SECTOPS *^ MX 


EDIT2 


l-^sa 


! I?P 


FA 22 3 030 9 


7'3 116??? 


: EDI TO? 











H032^31ft,4,ni EDlT/3'7gg iy;ON* JfJN 33* 1975* 1:41 ^M 
/?ZT W0''.t;TE'<T EDIT2;KEEP EDIT2 
/LIST ALL 

1 LIN" I OF WO!^K FILE 

2 LINE 2 OF 'JOHK FILE 



3 LINE 3 OF v;OPK FILE 












M LirJE ii OF '.;0"K FILE 












S LIME 5 OF VOPK FILE 












/VEIIFY FILE? 












F ILET: 












'.'OHK: Kl^i 1341 












KEZ^: EDlT2.P'Tg, GOODWIN 


n:i:j* 


JMM 3'^* 


1975* 


I'.^n 


PM 


■'•^T, EDlT2.'^"3.'30OD'.'IN 


KON*" 


J'.'N 1-"* 


1975y 


I :/jI 


DK 


JOIN: 












/END 













liJD OF SfJ-Y'TEK 
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EDIT/3000 monitors whether you make changes to the TEXT file or not. Thus, when using the TEXT or 
END command, you are not burdened with the "OK TO CLEAR?" message unless the file has been altered. 
The "VERIFY ALL" and "VERIFY FILES" commands indicate if the WORK file has been altered with the 
following message: 

WORK FILE HAS BEEN ALTERED 

For example. 



H^^?.?U1 A.7.'-;i fXlT/iOnc /tOf Hk\ if 197B, 1:42 PM 

/rb XT Kf Tf ILrON'f^ 

/v t ii rt 

b ftUr'iriflfJS 

? '■•C-Fc; ■VDiJJTACiNo 

^ • • a 



FILt5: 

TrXT: rFcFIt,l'l.ii..SMM>L .ItD, VAY 3, l97fl 1:42 PH 

JUi.':; 
/K = <-:d KFf-FIL, uTi-^ 
KfVML AI.PFAUi' L^f.ISTfr- - HfC'FLiJD YtS TO PURGE OLD AND ThKN Kt'EP 

/V f ILKS 

v^OttK.: Kl 231 342 

^fc.t:p: KLt-flL.FUb.iiHiur. '.■>Ut, MAY 3, l 9973 U49 PH 

TciXT: Kr;fi IL.FOH.SHFLl.. WED, MAY J, 1<»78 1:42 PM 

/F-LNO 

E.:-D OF SI.'t^SHSrEM 
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• KEEPING THE WORK FILE CONTENTS ON A CARD PUNCH DEVICE 

In the next example, a FORTRAN/3000 source program, which has been copied into the WORK file with a 
TEXT command, is sent to a card punch device. To prevent the line numbers from being punched on the cards, 
the KEEP filename, UNNUMBERED form of the KEEP command is used. 



: FILE O^^T 


; nE7=o'.'NCH 




: E DI TO" 








K? 322£51A. 


u.<s\ z 


DIT/30'5? KON^ J'JN 3*3, 1975. 2:/l2 PM 




/5 ?hot>t; 


TEXT F 


TnAN33 




/LIST ALL 
1 




r^^OG'^A'l I ;JT->I :;.':!':? 




?. 


C 






-) 


c FOPtiJ/ f"-:ac# and fclosz. example 




a 


c 






5 


n:i 


F0-MATtT2, 5) 




6 




CHA-'ACTi-?*7 2 SL'FFEn, FILE.'JAME*16 




7 




LOGICAL LI5;.TFHPC36J 




S 




IIJTEGE-? FILE'JU-1EE«. F0?E:J.F^EAD 




9 




EQUIVAL£:jCE CL^LTFEP/ DUFFE?) 




\2 




FlLE:JA:iE=":tAlLLIST" 




1 1 


c 






12 


c the: 


>je':t statet-ietjt calls tme fq:^E-M iMTPirJStc 




13 


c 






lA 




FILENflEEPsFOPEWtFILEMAME^MV^MIl^SV^O. 0, 0* 0* Qj Oj \(1. :)\, 


15 




#^,^>?>\?.16^3<!'\) 




16 




IF( .cc yA", I'5* ^^ 




17 


1-^ 


DISPLA'' "FILENrjTIBET? = ■■* F ILENITIEEP 




1«J 


c 






n 


C THE 


NEXT ETATEMEiviT CALLS THE F"EAr INT?I.MSIC 




2^ 


C 






21 


23 


M'=r^£ADt\FIL£?jr/1BE'*'\,LErjFFEPi\36\) 




22 




Iff. cos:?/ 3?. 6^ 




23 


3^ 


Vn.ITEfe, 1(^(1) EUFFE°.C 1:19] 




2H 




GOTO 2<^ 




25 


Ad 


D'.'-'LAY '-FOPETJ FAILURE" 




25 




$"'; ^ 




27 


5? 


DISPLAY "F"EAD E^^nOP." 




23 




5T0" 




20 


C 






30 


C TKE 


NEXT 3TATEMEMT CALLS THF FCLOSE irJTPINSiC 




31 


C 






32 


63 


CALL FCLQS£<\FILENUMEE?.\>\1\,\?\) 




33 




iFt.cc. >72,^'^,^<s 




3^ 


7^ 


DISPLAY "FCLOSE FAILL'PE" 




35 




3T0D 




36 


3 3 


DISMAY "FILE CLOSED SUCCESSFLT-LY" 




37 




STOP 




38 




E.MD 




/KEEO «OUT*UNN 







\ 



• USER LABELS 

If the file is kept with a name that already exists, the old file is purged, but the user labels are not lost. They 
are passed on to the new file. 
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3-68. LIST COMMAND 

3-69. Purpose* The LIST command displays all or a portion of the WORK file. 

3-70. Form. The form of the LIST command is 

L(IST][Q] [range] [,UNN[UMBERED)][,OFFLINE] [.TRANSLATE] [,NOTEXT] 

3-71. Description. The LIST command lists the lines of the WORK file contained in range. If range is not 
specified or if range is an asterisk (*), the line containing the pointer is displayed. If range is ALL, the entire 
contents of the WORK file are displayed. 

If the Q or UNNUMBERED parameters are specified, only the text of each line in range is listed, without the 
line numbers. 

Unless the OFFLINE parameter is specified, the listing is displayed on the standard output device (OUTPUT 
file). If OFFLINE is specified, the WORK file is listed on the device class LP, unless an alternative output 
device is specified with the MPE ;FILE command. (See paragraph 3-73, EXAMPLES.) The number of lines 
printed on each page of an offline listing will be 60, unless otherwise specified by the SET LINES parameter. 
(See paragraph 3-95.) 

If the system does not have a device class of LP, the message "*OFFLINE LIST DEVICE NOT AVAIL* 
ABLE^' appears. You must, in this case, use a file equation with the proper device class. 

Note: This feature must be included at configuration and may vary from 
installation to installation. 

The TRANSLATE parameter causes all lowercase characters to be shifted to uppercase for the listing only. 
The contents of the WORK file are not altered, only the listing is affected. 

The NOTEXT parameter causes a listing of line numbers only, without the text of the lines. (This is useful for 
determining what line numbers exist within a range.) 

Parameters for the LIST command may be specified in any order as long as they are separated by commas. 
Some combinations, however, such as UNNUMBERED (or Q) and NOTEXT, obviously are incompatible. 

3-72. Limitations. The LIST command displays only those characters within the SET LEFT, SET RIGHT 
margins in effect. See paragraph 3-92 for a discussion of the SET command. 
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3-73. Examples. Several variations of the LIST command are shown in the following examples. The 
location of the pointer is illustrated after the conclusion of each LIST command. 

• LIST range 

This example specifies a range of 3/6 and only lines 3 through 6 are listed. After the command is executed, the 
pointer is located at position 1 of line 7 (the line following the last line listed). 

?. 

3 EDIT/3^«3 IS A StrB5Y5TEM OF TTIE HP 30«0 

A MULTIonOG'^AMHING EXECUTIVE OPEHATING SYSTEM 

5 (MOE/3^'13) THAT IS USED TO CREATE AMD 

6 MANI^fiLATE ASCII FILES. 
7 

6 CKAPACTERS* STRINGS OF CHARACTERS* OR ENTIRE 

9 LINES OF CHARACTER? CAN BE INSERTED* DELETED* 

1^ REPLACED* MODIFIED* SEARCHED FOR* AND OTHERWISE 

11 MANlo-iLA'^ED 3Y T^HJG EDIT/3i933 COMMANDS. 

/LI9T 1/6 

■3 EDlT/3?^'^ IS A =:M3SYSTEM OF THE HP 333(3 

H HMLTI'^HOGRAMMING EXECUTIVE QOERATING SYSTEM 

5 CK''£/3'50CT) THAT I? U'^ED TO CREATE AND 

6 M.ANIoi;LATE ASCII FILES. 
/FIND * 



• LISTQ range and LIST range UNN[UMBERED1 

When the LISTQ and LIST UNNUMBERED forms of the command are used as in the following example, the 
text, but not the line numbers, of each line in range is listed. 

/LISTQ 3/6 

EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 
MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 
(MPE/3000) THAT IS USED TO CREATE AND 
MANIPULATE ASCII FlLES- 
/FIND * 
7 

T(l ) 

/LIST 3/6*UNNUMBERED 

EDiT/aaaa is a subsystem of the hp 3000 

MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 
CMPE/30flfl) THAT IS USED TO CREATE AND 
MANI^W-ATE ASCII FILES. 
/FIND* 
7 

»CI ) 

• LIST range, NOTEXT 

This form of the LIST command causes EDIT/3000 to display line numbers only; the text of the lines in range is 
not listed. 

/LIST 3/6*N0TEXT 
3 
4 

s 

6 

/FIND * 

7 



K 
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• UST ra;i^e, OFFLINE 

The LIST ranges OFFLINE command sends the WORK file records to listfile instead of displaying the records 
on the standard list device. 

The listfile can be declared in the MPE/3000 :EDITOR and :FILE commands and equated to an alternative 
output device. In the first example following, the file OUT is declared and equated to a line printer (which is 
not the standard list device in a session). When EDIT/3000 is accessed, the :EDITOR *OUT command is 
used, back-referencing the file OUT, The LIST ALL,OFFLINE command causes the contents of the WORK 
file to be listed on the line printer, 

tFILE OUT J DEV- FASTLP 
i EDITOR *OUT 

HP322«IA.4.01 EDIT/3000 TUE* HAY 13- 1975# 10:12 AM 

/TEXT EDITS 

/LIST ALL- OFFLINE 

*** OFF LINE LISTING BEGUN. *** 

Note: The listing below was printed on the line printer. 

1 l-^. WHAT IS EOi T/3000? 

? 

3 tOiT/3000 IS A SUBSYSTEM Oh THE HP 3000 

4 MULTIPHOGHAMMlNb ext-.CUTIVt UPtRATlNb SYSTEM 

5 {MK>t/iOOO) THAT IS USED 10 CREATE AiVjQ 

6 MANIPULATE ASCII f-'ILES. 
7 

d CHM^UCTtHSt SThlNGS OF CrlARACTFe^S, OK ENTIRE 

9 L!^iES UF CHAkACTERS CAN BE INSERTED* OELETEDf 

10 MEH'LACtOf MOlilFlcUf SEAKCHEf) FOf^' ANO OTHERWISE 

11 MANIPULATED tiY USING EOIT/SCjOO COMMANDS. 

If EDIT/ 3000 has been accessed without specifying an offline list ^e, an offline listing can be obtained on 
devices other than LP as follows : 

a. Enter the following :FILE command from within EDIT/3000 : 

:FILE EDTLIST J)EV- FASTLP 

where FASTLP is the desired device class name (FASTLP is a line printer on the system used in 
the example) and EDTLIST is the formal file designator for EDIT/3000 offline listings. 

b. Enter the EDIT/3000 command . 

LIST ALL,OFFLINE 
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EDTLIST is EDITOR'S formal designator for the offline output list file. 
EDTLIST is used for the LIST, OFFLINE and XPLAIN, OFFLINE commands. 
EDITOUT is EDITOR'S formal designator for the output list file ($STDLIST). 
ED IT IN is EDITOR'S formal designator for the input file ($STDINX). 



I 
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3-74. MODIFY COMMAND 



3-75. Purpose. The MODIFY command modifies text records in the WORK file through the use of three 
MODIFY subcommands. 

3-76. Form The form of the MODIFY command is 

M[ODIF Y] [Q] [rangelist] 

3-77, Description. The three MODIFY subcommands are as follows: 

D Deletes the character directly above it, A consecutive string of characters can be deleted by 

typing a D below each character or below the first and last characters in the string (with blank 
characters in between) to be deleted. 

I Inserts characters in front of the character directly above the I. 

R Replaces characters starting with the character directly above the R. 

In an. interactive session, the MODIFY command begins operation for each line in rangelist by displaying 

MODIFY linenumber 

then the contents of the line. 

If rangelist is not included in a MODIFY command, or if * is specified in rangelist, EDIT/3000 modifies the line 
containing the current location of the pointer. 

After one of the subcommands has been used to modify the line and RETURN has been pressed, EDIT/3000 
displays the line again in its modified form unless the MODIFYQ form of the command has been used, in 
which case the modified line is not displayed. If the line is satisfactory, press RETURN and EDIT/3000 will 
print the next line to be modified (or terminate the MODIFY command if the last line in rangelist has been 
modified). If the line requires further modification, enter the appropriate subcommand. 

In an interactive session, to cancel the effect of a MODIFY subcommand, press CONTROL Y before RETURN, 
To cancel a MODIFY command for all lines of a range not yet modified, press CONTROL Y after EDIT/3000 
displays the line to be modified. EDIT/3000 then proceeds to the next range (if any) in rangelist or terminates 
the MODIFY command if this was the last (or only) range in rangelist. Lines already modified remain modified 
and all other lines remain unchanged. 

3-78. Limitations. The MODIFY command operates only on text within the SET LEFT, SET RIGHT 
options in effect. (See paragraph 3-92 for a discussion of the SET command.) 

Only one subcommand may be used to modify a line each time it is displayed, with this exception: an I (insert) 
subcommand can follow a D (delete) or an I can be used as the second D in a range of Ds. 

For example, 

/MODIFY ] 
MODIfY 1 

THIS IS LINE 1 

DDDDIITCI 
THIS IS ITBi \ 

D ILINE 
THIS IS LINE I 
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As you recall, if the ampersand (&) is used as the last character in a line, EDIT/3000 interprets this as 
meaning that the line is to be continued. Thus, when an ampersand is to be entered as the last character in a 
line to be modified with a REPLACE or INSERT subcommand, you must enter a blank character after the 
ampersand. 



3-79. Examples. Several variations of the MODIFY command are shown in the following examples. 

• DELETE SUBCOMMAND 

The DELETE (D) subcommand causes any character above the D (or a string of Ds or two Ds with blank 
characters between) to be deleted. In the example, the blank character between "HP" and "3000" is deleted by 
moving the cursor under the blank character and typing D, then the entire string "HP 3000" is deleted by the 
D, a string of blanks, and another D. 

/LI?T ALL 

1 1-2. UTIAT IS EDIT/3e3'7? 

2 

3 EDIT/3300 IS A ^UB^Y^TEM OF THE HP 3<:)(ipi 

it M'jLTIi"?3 3PAMMING EXECUTIVE O-^E^^ATIMG SYSTEM 

5 (KOE/30^0J THAT IS USED TO C.EATE AND 

6 MANIPULATE ASCII FILES. 
7 

g CHARACTERS* STPtNGS OF CHA'lACTERSv OP ENTI9E 

9 LINES OF CHARACTERS CAN BE INf5E«!TED, DELETED, 

13 SEPLACEDj MODIFIED* SEA'ICHED 70'=^j AND OTHE?yi';E 

II MANIPULATED BY 'JSING ECHT/330a COMMAND*?. 

/MODIFY 3 
MODIFY 3 

EDIT/3000 IS A SL'BSYSTEM QF THE HP 30(90 

D 
EDIT/3000 IS A SUBSYSTEM QF THE HP390a 

/FIND* 

a MULTlPoOGRAMMtNG EXECUTIVE OPERATING *;YSTEM 

/MODIFY 3 
MODIFY 3 

EDIT/3000 IS A SUBSYSTEM OF THE HP3t30«» 

D D 

EDIT/30eB IS A SUBSYSTEM OF THE 

/LIST 3/4 

3 EOlT/3000 IS A SUBSYSTEM QF THE 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 



• REPLACE AND INSERT SUBCOMMANDS 

The REPLACE (R) subcommand replaces characters starting with the character directly above the R with new 
characters entered from the INPUT file. In the example, the characters "HP3000" are replaced by 
"HEWLETT-PACKARD". The INSERT subcommand (I) is used to insert the characters "3000" after 
"HEWLETT-PACKARD". The I is positioned directly under the character where the inserted information is to 
begin. 

/MODIFY 3 

MODIFY 3 

EDIT/3009 15 A SUBSYSTEM OF THE HP3000 

RHEULETT- PACKARD 
EDIT/3000 IS A SUBSYSTEM OF THE HEWLETT-PACKARD 

I3«00 
EDIT/3000 IS A SUBSYSTEM OF THE HEWLETT -PACKARD 3000 

Note: The R subcommand can be used to extend line length by entering R, a 
series of blank characters, then RETURN. 
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• DELETE AND INSERT SUBCOMMANDS 

The DELETE (D) and INSERT (I) subcommands can be used on the same line. The I can be used to insert 
characters after a D (or a range of Ds), or the I can be used as the last D in a range of Ds. Whatever is entered 
after the I will be inserted in the line after the last deleted character. 

In the example, the characters "HEWLETT-PACKARD" are deleted by the range of Ds and the characters 
"HP" then are inserted with the I subcommand. 

/MODIFY 3 
MODirv 3 

EDiT/aaaa is a subsystem of the Hewlett-Packard 3000 

D DIKP 

EDIT/30afl IS A SUBSYSTEM OF THE HP 3000 



• USE OF AMPERSAND (&) 

In the following example, an & is inserted as the last character and RETURN is pressed. EDIT/3000 interprets 
this as a continuation character and the command LIST 3 is added to the end of line 3. 

The second part of the example deletes the characters "LIST 3" and inserts an & and a blank character. Now 
EDIT/3000 interprets the modification correctly. 

/MODIFY 3 

MODIFY 3 

EDIT/3B8B IS A SUBSYSTEM OF THE HP 3008 

I« 
LIST 3 
EDlT/300a IS A SUBSYSTEM OF THE HP 3000 LIST 3 

/MODIFY 3 
MODIFY 3 

EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 LIST 3 y^-v 

D DI4 fcR) 
EDIT/3000 IS A SUBSYSTEM OF THE W* 3000 « V-/ 

/LIST 3 

3 EOlT/3000 IS A SUBSYSTEM OF THE HP 3000 4 



3-53 



3-80. Q COMMAND 

3-81. Purpose. The Q command displays a message on the standard list device (OUTPUT file). 

3-82. Form. The form of the Q command is 

3-83. Description. The Q command prints any message selected by you, or a blank line if no string is 
supplied. You can use the Q command, for example, to remind yourself to perform certain editing functions 
when a specific point is reached in an edit cycle. This command is most useful in WHILE blocks and USE files, 

3-84. Limitation. The Q command is used to display a message only to the standard list device (a 
terminal in an interactive session or a line printer in batch mode). 

3-85. Example. 

/n "THI? IS A MESSAGE" 
THIS IS A MESSAGE 
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3-86. REPLACE COMMAND 

3-87* Purpose. The REPLACE command replaces one or more lines in the WORK file. 
3-88. Form. The form of the REPLACE command is 
R[EPLACE][Q] [rangelist] [30LD[Q] [,NOW]] 

3-89. Description. Entire lines are replaced by a REPLACE command. (Use the CHANGE or MODIFY 
commands if you want to change characters within a line.) If an entry in rangelist is a colnum or a string 
(signifying that only that column or string is to be replaced), the REPLACE command ignores this and 
replaces the entire line. If no rangelist is specified in the REPLACE command, or if an asterisk (*) is specified 
in rangelist, the REPLACE command replaces the line containing the current location of the pointer. 

In an interactive session, EDIT/3000 displays the line number and the contents of the line to be replaced, then 
displays the line number again on the next line (unless the REPLACEQ form of the command has been used, 
in which case only the line number is displayed). Enter the replacement text and press RETURN, The new text 
replaces the old line. Pressing RETURN only (with no replacement text) deletes the contents of the line but not 
the line itself (the line number still exists; the contents are blank). 

When all lines of r range have been replaced, EDIT/3000 prompts for the first line in the next range (if any) in 
rangelist, or terminates the command if this was the last (or only) range in rangelist 

Pressing CONTROL Y in an interactive session will terminate the replacement of lines in a range, or 
terminate the REPLACE command if this is the last (or only) range in rangelist. 

In batch mode, the REPLACE command replaces lines with new text records entered following the REPLACE 
command. 

Text from the HOLD file can be used to replace existing lines in the WORK file by adding the HOLD[Q] or 
HOLD[Q],NOW parameters to the REPLACE conunand. See paragraph 3-91, EXAMPLES. 

3-90. Limitations. The REPLACE command operates only within the margins established by the SET 
LEFT, SET RIGHT (see paragraph 3-92) options in effect. Only that text within the left and right margins 
is displayed and only that part of the line is replaced. The replacement line is padded with blanks if it is 
shorter, while a warning message is displayed if the string is longer than the LEFT/RIGHT range. 

When the HOLD parameter is used with the REPLACE command, text is replaced on a line-for-line basis. 
For example, if three lines are to be replaced, then only three lines will be accepted from the HOLD file. 
Or, if there are only three lines in the HOLD file, only that many lines will be replaced in the WORK file 
even if range specifies more than three lines. 
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3-91. Examples. The following examples illustrate the use of the REPLACE command and show the 
location of the pointer at the conclusion of each command. 

• REPLACE range 

With this form of the REPLACE command (in an interactive session), EDIT/3000 displays the line to be 
replaced, then prompts for the new text with the Hne number. The new text is entered and replaces the text 
originally contained in the line. 

/LIST ALL 

I 1-2. WHAT IS EDIT/3(9aa? 

2 

3 EniT/33»3 I? A SUBSYSTEM OF THE HP 3000 

4 HULTIPPOGFIAMMJNG EXECUTIVE OPEPATING SYSTEM 

5 CHPE/3(?^0) THAT IS USED TO CPEATE AND 

6 MANIPULATE ASCII flLE?. 
7 

8 CHAP.ACTEPS* <^TP.ItJG<! OF CHAP.ACTE'S* OP. ENTIT?E 

9 LINES OF CHAP.ACTEPS CAN BE I*J?EPTED# DELETED* 
[0 REPLACEDj modified* SZAP.CHED FOP/ AND OTHEHVISE 
11 MANIPULATED BY USING cOIT/300a COMMANDS. 

/PEPLACE 5 

5 CMPE/300'?) THAT IS USED TO CREATE AND 

5 THIS IS A NEW LINE 5- 
/FIND* 

6 MANIPULATE ASCII FILES. 
t(l ) 

/LIST 4/6 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

5 THIS IS A NEW LINE S. 

6 MANIPULATE AFCM FILES. 

• REPLACEQ range 

With this form, EDIT/3000 does not display the line to be replaced, but does prompt with the line number. 

In the example, the characters "(MPE/3000) THAT IS USED TO CREATE ANiy are entered after the prompt 
(5) is displayed. These characters replace the old contents (THIS IS A NEW LINE) of line 5. 

/LIST 5 

5 THIS IS A NEV LINE 5. 

/REPLACED 5 

5 <MPE/30fl0) THAT IS USED TO CREATE AND 
/FIND* 

6 MANIPUX-ATE ASCII FILES. 
»(l ) 

/LIST A/6 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

5 <MPE/3000) THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES- 



I 
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REPLACE range, HOLD,NOW 



This form of the REPLACE command (in an interactive session) causes EDIT/3000 to display the line to be 
replaced, then the line from the HOLD file which replaces it. 

In the example, lines 3 through 6 are replaced by four lines from the HOLD file. 

1 1-2. ^JKAT IS EDiT/saaa? 

2 

3 £011/3000 IS A SUBSYSTEM OF THE H? 3«3H0 

U MULTIPHOGHAMMING EXECUTIVE OPEFIATING SYSTEM 

5 (MPE/30e)0) THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES- 
7 

8 CHARACTERS* STF1ING5 OF CHASACT£R5- ^V. ENTIRE 

9 LINES OF CHAFtACTEPS CAN BE INSERTED* DELETED* 

10 REPLACED* MODIFIED* SEARCHED FOR* AND OTHERWISE 

11 MANIPULATED SY USING EDIT/3(55)0 .COMMANDS. 
/HO LIT) S/1 1 

CLEAR HOLD? Y 

HOLD FILE LENGTH IS k T^ECORDS 

/REPLACE 3/6*HOLD*N0U 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 333(5 

3 CHARACTERS* STRINGS OF CHARACTERS* OR ENTIRE 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

i\ LINES OF- CHARACTERS CAN aE INSERTED* DELETED* 

5 tMPE/3!Jt)0) THAT IS USED TO CREATE AND 

5 REPLACED^ MODIFIED* SEARCHED FOR* AND OTHERWISE 

6 MANIPULATE ASCII FILES* 

6 MANIPULATED BY USING EDIT/3g00 COMMANDS. 

/FIND^ 

7 

t( 1 > 
/LIST ALL 

1 ]-2, U^HAT IS EDIT/30a3? 

2 

3 CHARACTERS* STRINGS OF CHARACTERS* OR ENTIRE 

^ LINES OF CHARACTERS CAN BE INSERTED* DELETED* 

5 REPLACED* MODIFIED* SEAPCKED FOR* AND OTHERWISE 

6 MANIPULATED 8Y USING EDIT/30Q3 COMMANDS. 
7 

? CHARACTERS* STRINGS OF CHARACTERS* OR ENTIRE 

9 LINES OF CHARACTERS CAN BE INSERTED* DEI.ETED* 

13 REPLACED* MODIFIED* SEARCHED FOR* AND OTHER'^ISE 

11 MANIOTTLATED BY USING EDIT/3«<?!1 COMMANDS. 

• REPLACEQ,HOLD,NOW and REPLACEQ,HOLDQ,N0W 

The REPLACEQJIOLD^NOW form of the REPLACE command does not display the lines to be replaced but 
does display the lines from the HOLD file. In the following example, lines 3 through 6 are replaced by four 
lines from the HOLD file. 

The REPLACEQ,HOLDQ,NOW form does not display the lines to be replaced nor the lines from the HOLD 
file. See the second command in the following example. 

/REPLACED 3/6* HOLD* NOV 

3 CHARACTERS* STRINGS OF CHARACTERS* OR ENTIRE 

i\ LINES OF CHARACTERS CAN 3E INSERTED* DELETED* 

5 REPLACED* MODIFIED* SEARCHED FOR* AND OTHERWISE 

6 MANIPULATED 8Y USING EDIT/3000 COMMANDS. 
/REOLACEO 3/6*H0LDn*N0y 

/LIST ALL 

I 1-2. UltAT IS EDIT/30'33? 

3 CHARACTERS* STRINGS OF CHARACTERS* Or ENTIRE 

H LINES OF CHARACTERS CAN BE INSERTED* DELETED* 

5 REPLACED* MODIFIED* SEARCHED FOR* AND OTHERVJSS 

6 MANIPULATED 3Y USING EDIT/S'^g^ COMMANDS. 
7 

5 CHARACTERS* STRINGS OF CHARACTERS* OR ENTIRE 

9 LINES OF CHARACTERS CAN BE INSERTED* DELETED* 

13 REPLACED* MODIFIED* SEARCHED FOR* AND OTHERWISE 

II MANl-^r'LATED 3Y f.r^ING ZmT/2'^'^7i COMMANDS. 
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• CREATING A TWO-COLUMN FORMAT WITH THE REPLACE COMMAND 

The example below shows how to replace portions of lines with lines from the HOLD file to create a 
two-column format. 



/ADD 

1 LINE 1 OF WOn.K FILE 

2 LINE ? OF U'OPK FILE 
1 LINE ? OF '.'OHX FILE 
a LINE a OF V'O^K FILE 

5 LINE S OF WO^K FILE 

6 LINE 6 OF vrOPX FILE 

7 LINE 7 OF VO'^K FILE 

3 LINE 5 OF VO^K FILE 
9 LINE 9 OF '■'O^K FILE 

l^ LINE I?) OF VO^K FILE 
1 1 // 

/HOLDO 6/l?5 

CLEAR HOLD? Y 

HOLD FILE LENGTH I "3 5 1EC0PD<> 

/*;ET PIGHT=ii3/LEFT=2l 

/REPLACE" I/5/HOLD'^^NOt' 

/SET LZFT=1 

/DELtTEO 6/10 

NTJM3EP OF LINES DELETED » 5 

/LIST ALL 

1 LINE I OF UO?K FILE LINE 6 OF VQRK FILE 

2 LINE 2 OF UO!»X FILE LINE 7 OF WO*^K FILE 

3 LINE 3 OF WORK FILE LINE q OF WO?lK FILE 

4 LINE 4 OF WOPK FILE LINE 9 OF WO^.K FILE 

5 LINE 5 OF V0«1K FILE LINE 13 OF UOP.K FILE 



i 
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3-92. SET COMMAND 

3-93. Purpose. The SET command alters default conditions normally established by EDIT/3000. 

3-94. Form. The form of the SET command is 



I> J L,Ui2^i^l'A = increment} [.UEflti = Limit\ [, < 
POLL J \ 



BATCH \ { FIXED 

S[ET] {{ I ] [,DELTA = increment] [,DEPTH = limit] I 



VARIABLE 



f COBOL 1 [FRONT ] 

[, FORMAT =1 [ ] [,FROM = linenumber] [, | \ 

[ DEFAULT I [ REAR J 



( QUIET ] 
[, LEFT = colnum] [.LENGTH = colnum] [A \] [,LINES = maucZfncs] 

[ DISPLAY I 



[ SHORT] 

[,RIGHT = colnum] [A \ ] [,SIZE = integer] LTIME[S] = limit] 

[long ) 



'j ,TABS [ = {colnum [.colnum] . . . )]\\ [, 
\,NOTABS IJ 



TABCHAR [^string]] 



For example, 

SET BATCH, SHORT, QUIET 

3-95. Descriptions The default parameters for the SET command are underlined in the example. Before 
using a SET command, enter a VERIFY ALL command to display the conditions in effect. 

The SET command can be entered on as many lines as necessary (end each line to be continued with an 
ampersand (&) or you may repeat the SET portion of the SET command at the start of the next line). Separate 
the parameters in a SET command with commas. 

The SET command pairameters are explained in the following paragraphs, in alphabetical order. 

• SET BATCH/POLL. SET BATCH and SET POLL relate to where EDIT/3000 expects to find commands, 
text records, and where output will be sent. SET POLL is the default condition and means that 
EDIT/3000 expects to fmd commands and text records in the INPUT file. To operate in an interactive 
session in full batch mode (with text records following command records) in the USE file, SET BATCH 
is declared. SET POLL can be set to return to interactive mode and read text from the INPUT file. 

• SET DELTA = increment. SET DELTA defines the interval between lines in the WORK file. The default 
increment is 1 or 0.1, depending on the SET FORMAT option in effect. If SET FORMAT = DEFAULT 
(the default condition), the increment is 1; if SET FORMAT = COBOL, the increment is O.L The SET 
DELTA value establishes line number increments which are used in the ADD, GATHER, and JOIN 
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commands, and (when the UNNUMBERED parameter is used) in TEXT commands. The SET DELTA 
value in effect can be overridden with the BY increment parameter of GATHER, INSERT, and JOIN 
commands. 

SET DEPTH = limit. SET DEPTH defines the maximum nesting of USE commands (how many times a 
USE command can call itself or another USE command); and the number of BEGIN-END pairs allowed 
in a WHILE block. The default limit is 10. 

SET FIXED/VARIABLE. SET FIXED and SET VARIABLE specify whether the WORK file contents are 
saved with a KEEP command into a file with fixed-length or variable-length records. The default 
condition is FIXED. 

SET FORMAT = COBOL/DEFAULT. SET FORMAT = COBOL and SET FORMAT = DEFAULT are 
used to inform EDIT/3000 whether EDIT/3000 operation is related to a COBOL source program or not. 
The default condition is DEFAULT. 



SET FORMAT = COBOL informs EDIT/3000 that the current WORK file contents, when kept, must be 
acceptable to a COBOL compiler. The chosen SET FORMAT option also determines certain other SET 
command default conditions as shown in table 3-1. 



\ 



Table 3-1. Default EDIT/3000 Operating 


Conditions 


SET COMMAND 






OPTION 


SET FORMAT = DEFAULT 


SET FORMAT = COBOL 


FROM = 


1 


1 


DELTA = 


1 


0.1 


LEFT = 


1 


1 


RIGHT = 


72 


74 


LENGTH = 


72 


74 


LINES = 


60 


60 


QUIET/DISPLAY 


DISPLAY 


DISPLAY 


SHORT/LONG 


LONG 


LONG 


BATCH/ POLL 


POLL 


POLL 


DEPTH = 


10 


10 


TIMES = 


50 


50 


SIZE = 








FRONT/REAR 


REAR 


FRONT 


FIXED/VARIABLE 


FIXED 


FIXED 


TABS/NOTABS 


NOTABS 


NOTABS 


TABCHAR= 


CONTROL 1 1'9) 


CONTROL 1 ('91 
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In addition, when SET FORMAT = DEFAULT, the smallest increment allowed for line number intervals 
is .001. The maximum line number count allowed is 99999.999. This restricts sequence numbers derived 
from line numbers with the KEEP command to eight bjrtes, with a range from 00000001 through 
99999999. If SET FORMAT = COBOL, the smallest increment allowed for line number intervals is .001 
and the maximum line number count allowed is 999.999. This restricts sequence numbers derived from 
line numbers with the KEEP command to six b3rtes, with a range from 000001 to 999999. 

SET FROM = linenumber, SET FROM = linenumber specifies the starting line number for text entered 
into the WORK file with an ADD command, or for text copied by the GATHER, JOIN, or TEXT filename, 
UNNUMBERED commands. The default is 1 (new text will start at line 1 in the WORK file). 

SET FRONT/REAR. SET FRONT and SET REAR request EDIT/3000 to form sequence numbers from the 
front bytes (SET FRONT) of each record or from the rear bytes (SET REAR) of each record. The default 
condition depends on the SET FORMAT option in effect. If SET FORMAT = DEFAULT, the last eight 
bytes of each record are used. If SET FORMAT = COBOL, the first six bytes of each record are used. 

SET LEFT = colnum. This parameter specifies the left msirgin for text records in the WORK file. The 
default condition is 1 and text will start in column number 1 of each record. SET LEFT must be less than 
or equal to SET RIGHT and SET LENGTH. 

SET LENGTH = colnum. This parameter specifies the maximum length (record size) of all records in the 
WORK file and may not exceed 255 bytes. The default length depends on the SET FORMAT option in 
effect. If SET FORMAT = DEFAULT, length = 72; if SET FORMAT = COBOL, length = 74. SET 
LENGTH must never be leas than SET RIGHT. 

Some EDIT/3000 commands can increase the length of a line in the WORK file up to 50 percent larger 
than the length in effect (a warning message will be displayed but the command will execute). If a 
command attempts to increase the length of a line by more tiian 50 percent, however, an error message is 
displayed and the command terminates. In batch mode, EDIT/3000 operation also is terminated. 

SET LINES = maxlines. This parameter specifies the number of lines that will be printed on each page 
of an offline listing. The default is 60 lines. A minimum of 10 and maximum of 9999 lines can be 
specified; the number includes 3 lines for the page title. 

SET QUIET/DISPLAY. DISPLAY is the default condition (EDIT/3000 will display line numbers for lines 
to be added, and so forth). SET QUIET is equivalent to using the Q option for EDIT/3000 commands 
(except KEEP). 

SET RIGHT = colnum. This parameter specifies the right margin for text records in the WORK file. The 
default is 72 if the SET FORMAT = DEFAULT parameter has been declared and 74 if the SET FORMAT 
= COBOL parameter has been declared. Colnum must be greater than or equal to that set with a SET 
LEFT command and may not exceed the length established for records. SET RIGHT must never exceed 
SET LENGTH. 

SET SHORT/LONG. SET SHORT and SET LONG determine the length of EDIT/3000 messages. SET 
LONG is the default condition. SET SHORT cancels SET LONG and causes messages to be shortened. 

For example, 

/END 

IF IT IS OK TO CLEAP. RESPOND "^^5- 

CLEAR? YES 

END OF SUBSYSTEM 

/SET SJlOFtT; END 
CLEAP.? YES 

END OF SUDSYSTE-i 

3-61 



SET 



SET SHORT also is used to inhibit display of commands in a WHILE block. 

• SET SIZE = integer. SET SIZE establishes the actual size of the WORK file, in lines. The default is 0, 
when EDIT/3000 begins operation. With the default condition in effect, EDIT/3000 sets the size of 
the WORK file according to the source of text records, as follows: 

If the source device is a terminal, a card reader, or a magnetic tape unit, EDIT/3000 sets the size to 
allow up to 2000 records (unless the SET SIZE command has set the size to some other value in lines). 
If the source device is a disc file, EDIT/3000 sets the size as shown below: 

TEXT DISC FILE SIZE (DFS) ACTUAL SIZE OF WORK FILE 

(RECORDS) (RECORDS) 

up to 1000 2000 

1000 to 4000 DFS + 50% 

greater than 4000 DFS + 2000 

Note that for every 8 lines of text, EDIT/3000 uses one record for its own purpose. A numbered file | 
also contains a directory at the end of the file. Because of this, approximately 88% of the records can 
be used for text lines. For example, if you do not SET SIZE explicitly before texting in a file with less 
than 1000 records, EDIT/3000 allows up to 2000 records in your WORK file, which means that approx- 
imately 1,767 (88% of 2000) lines of text are allowed. 

Size should be set explicitly whenever possible, especially if less than 2000 records (approximately 
1,767 lines of text) is sufficient space in the WORK file. 

• SET TABCHAR = string, SET TABCHAR defines a tab character to be used when entering text begin- 
ning at a specific tab stop. The default tab character if none is specified is Control I. The length of 
string may not be greater than one character. A decimal value may be specified for string if the digits 
are preceded by an apostrophe. The decimal value for Control I is '9 (the ASCII Horizontal Tab 
character). 

When entering a line of text with the ADD or REPLACE command, the tab character is used to tab 
to the next column defined as a tab stop. To position at the second tab stop two tab characters are 
entered. For example, if the tab character is defined as follows: 

/SETTABCHAR="!" 

and a line of text is to begin at the second tab stop, the addition looks like this: 

/ADD 

1 !!45.85 

2 

When the text is moved into the work file, the tab characters are replaced with a sufficient number of 
blanks to position up to the second tab stop and the number 45.85 is moved into the next five columns. 

Note: Tab characters are recognized only in the ADD and REPLACE commands. 
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SET TABS = (co/num,.. .)/NOTABS. SET TABS = defines up to 12 tab stops to allow text to be en- 
tered beginning at a specified column. If no SET TABS command is used, the default condition is SET 
NOTABS. If SET TABS is used but no column numbers are specified, the default column numbers are: 

• (4,7,10,13,16,19,22,25.28,31,65,71) if FORMAT = DEFAULT is set, 

• (6,10,14,18,22,26,30,34,38,46,54,67) if FORMAT= COBOL is set 

Each colnum parameter must be larger than the preceding colnum parameter and must he between the 
LEFT and RIGHT limits. 

When using the TAB key (provided on some terminals) in conjunction with the Editor SET TABS fea- 
ture, the following considerations apply : 

• It is the user's responsibility to make sure that the tab stops set on the terminal correspond to the 
tab stop column numbers specified with the Editor SET TABS command. The column positions 
depend upon the command that is to be used. The ADD and REPLACE commands print ten 
characters on the terminal before the first column of the line. The ADDQ command accepts the 
first column of the line beginning with the first cursor position. 
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• When the TAB key is pressed, the Editor enters one tab character (Control I or a decimal 9) in 
the current line. The terminal positions the cursor to the next tab stop set on the terminal. When 
the line is moved into the WORK file, the Editor converts the tab character to the appropriate 
number of blanks to position the information at the proper columns. It is important to remember 
this when using the backspace (Control H). In this case, the terminal moves the cursor back one 
position but the Editor backspaces one character in the current line. If that character happens to 
be a tab character, the effect of backspacing is to return to the column position preceding the 
tab. For example, suppose a terminal tab stop is set at position 10 and the following commands 
are entered . 

/SET TABS = (10) 
/ADDQ 

1451^ H^ Note: I^ indicates the tab key has been pressed and H^ indi- 

^ cates Control H or backspace entered. 

Cursor position 

The terminal moves the cursor one character position to the left when the backspace character is 
entered. However, the Editor considers the cursor position to be the 4th column since it backspaced 
over the tab character. 

1451*^ Current line according to Editor 

t 

• The tab stops may be set on the terminal either manually, or programmatically with an Editor 
USE file specified by the user. The code for TAB SET is Escape 1 (1®). The following USE file 
(named TABFIL) sets tabs in columns 10 and 20 of lines to be entered with the ADD command: 

SET TABS (10,20); 

Q" 1^ 1^"; (IMndicates Escape 1) 

To execute the USE file, enter the USE command and the file name. For example: 

/USE TABFIL 
Before setting new tabs, existing tabs should be reset with one of the following: 

• Escape 2 (or CLEAR TABS) 

• Escape 3 (or CONTROL CLEAR TABS (all) for HP 2645) 

• RESET TERMINAL key 

• SET TIME = limit. SET TIME defines the maximum number of times an EDIT/3000 WHILE block 
will execute. The default is 50 iterations. 

3-96. Limitations, Parameters of the SET command may be included in any order (separated by com- 
mas), however, some parameters are dependent on others and this must be considered. For example. 

The value used in a SET LEFT command may not exceed the value used in a SET RIGHT com- 
mand or any tab setting. 



I 
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The value used in a SET RIGHT command may not exceed the value used in a SET LENGTH 
command or less than any tab setting. 

After a WORK file has been created (with TEXT or ADD), the value of LENGTH must be less 
than the WORK file record size. However, before a WORK file is created, the maximum value 
used in SET LENGTH may be 255. 

Such SET command pairs as SET SHORT, SET LONG, and SET QUIET, SET DISPLAY are, of 
course, mutually exclusive. (The last occurrence of such a pair is in effect.) 

Commands that can extend existing lines (such as MODIFY, INSERT, and CHANGE) shift characters to the 
right of the RIGHT margin, although only that text within the left and right margins is actually altered. 
REPLACE is an exception to this; characters are not shifted to the right of the RIGHT margin. The REPLACE 
command displays only that text within the margins and only replaces that part of the line. The replacement 
string is padded with blanks if it is shorter. A warning message is displayed if the string is longer than the 
LEFT/RIGHT range. 



3-97. Examples* Examples are provided for several SET command options. 

• SET DELTA 

SET DELTA defines the interval between lines in the WORK file. In the following example, the interval is 1 
(the default condition if SET FORMAT = DEFAULT) and lines entered with the ADD command are numbered 
1, 2, and 3. After the SET DELTA = .001 command is entered, lines entered are numbered 1, 1.001, and 1.002. 

/VEPIFY DELTA 

DELTA = 1 
/ADD 

1 LINE I 

2 LINE 2 

3 LINE 3 
/J // 

/D ALL 

CLEAR? Y 

/SET DELTA*. 001 

/ADD 

] LINE 1 

\ ,^Z\ LINE 2 

I .332 LINE 3 

1 .333 // 

• SET FROM 

SET FROM determines the starting line number for text entered into an empty WORK file. 

In the example, lines start at 1 and 101, depending on the SET FROM = linenumher option in effect. 



/VERIFY FROM 




FROM » 


1 




/ADD 

1 


LINE 


, 


2 


LINE 


2 


3 


// 




... 






/D ALL 






IF IT IS 


OK TO 


CLEAR nES=»OND "YES' 


CLEAR? Y 






/SET FROM"|01 




/AOO 






\Z\ 


LINE 


1 


)F)2 


LINE 


2 


133 


// 
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• SET QUIET AND SET DISPLAY 

The SET QUIET command is equivalent to using the Q parameter for EDIT/3000 commands (except KEEP). 

In the example, after SET QUIET is entered, EDIT/3000 does not prompt with line numbers when the ADD 
command is executed. 

When the LIST command executes, line numbers are not displayed. 

Using the SET DISPLAY command sets QUIET to FALSE. 

/VE^.IFY OIJIET 

DISPLAY = TpiJE CLE. f^UlZT = FALSE) 

/ADD 

1 LINE I 

-3 LIME 2 

3 // 

/■?ET aUIET 
/ADD 
L INE 3 
LINE i\ 
// 

/LIST ALL 
LINE I 
L IN£ 2 
LINS: 3 
L INE 4 

/CET DISPLAY 
/LIST ALL 

1 LINE 1 

2 LIME ^ 
^ LINE 3 
a LINE H 



• SET TABCHAR AND SET TABS 

These commands define a tab character and tab stops to allow text to be entered beginning at specific col- 
umns. In the example, the tab character is defined as a percent sign (%), and tab stops are set at columns 5 
and 30. When line 1 is added, two percent signs are entered to tab over to the second tab stop (column 30). 
Then the data is entered. Line 3 begins at the first tab stop. When the text is listed, it appears in the correct 
columns. This is the way the information has been stored in the work file. 



/5ET TASCHA'* ■ "f, TABS ■ <5,afl> 

rjEP.lFY TASS^TASCHA^ 

TABS • < 5, SB) 

TAB CKAHACTCT ■ "X- 

/ADD 

1 SXJANUAn.Y l%* 1977 

2 DEA"^ MP. J ONE? I 

3 tVE A^E PLEASED TO ADVISE YOO THAT YOU HAVE WOM 

4 A NEW OOCKET CALCUI-ATO*?. YO'J WILL RECEIVE XT IM 
5 

/L.I/4 

1 JANUARY 16« 1977 

2 D£A«^ KA. JONES 1 

3 WE A«?E PLEASED TO ADVISE YOU THAT YO'J HAVE WON. 

4 A NEW POCKET CALCULATOTl . YOU WILL RECEIVE IT IN 



i 
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3^98. TEXT COMMAND 

3-99. Purpose. The TEXT command copies the contents of an MPE/3000 file into the WORK file. 

3-100. Form, The form of the TEXT command is 



T[EXT] 



filename [(^i^^^^^^^^/^^^^^u^^^^) 
[(^recnum/^recnum) 



,UNN[UMBERED] I I 



3-101. Description. A TEXT command that includes only the filename parameter copies the entire file into 
the WORK file. If the (linenumber/linenumber) parameter is included, only the records corresponding to the 
line numbers specified will be copied into the WORK file, and if the ( H^recnum/ #recnum) parameter is 
included, only those records corresponding to the logical record numbers specified will be copied into the 
WORK file. (See paragraph 3-103, EXAMPLES.) If neither(linenumber/linenumber)nor ( #recnum/ #recnum) 
is used, the entire TEXT file contents are copied to the WORK file. 

If the filename and the UNNUMBERED option are not specified, they are implied from the previous KEEP 
or TEXT command (whichever was performed last) for that file. If only the filename, but not the option, is 
specified, the UNNUMBERED option is implied if the text file is unnumbered, and the EDITOR responds 
with the message, 

FILE UNNUMBERED 
For example, 

/\ r .--rT if. , !.;.'-' 

Ki:rlt. m! A.'V b X U^ i o - Hfit''^riD YtS T":' rL'PCc: OLD AND THEN KEKF 

/r 



If the UNNUMBERED option was not specified in the last KEEP or TEXT command, only the filename is 
implied from that command when the current TEXT command is executed. 



For example, 



:F.D1T0P 

HP 32201A.07,01 KDIT/SOOO MOtJ, HAY 8, 1978, 3s5S PM 

to HEWI.KTT-PACSAPD CO. I97b 

/A 

1 OLD MATTER 

2 N'EW KAriKK 
3 

/K KEPFH. 
/I 

KEPFIL 
/fjib 
VMo or 5UH»sysTKM 
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In an interactive session, if the TEXT command is used when the WORK file has been altered, EDIT/3000 
asks if it is OK to clear the WORK file before the TEXT command is executed. If the response is other than 
YES or Y, the TEXT command is not executed. When a TEXT command is executed in batch mode, EDIT/ 
3000 clears the WORK file automatically if it has been altered. 

If FIXED is currently set when the TEXT command is issued, the value of LENGTH is taken from the 
TEXT file (the maximum record length). If VARIABLE is set, LENGTH remains set at its current value. 
EDIT/3000 then resets RIGHT to the value of LENGTH and LEFT to 1, and sets FIXED or VARIABLE 
depending on whether the TEXT file is a fixed or variable record file. This has the advantage of giving you 
more control over your operating environment. For example, if you desire to expand the records of a fixed 
length record file, you may issue the SET LENGTH^ colnum and SET VARIABLE commands before 
texting in the file. These same commands should be used for variable length record files. EDIT/3000 cannot 
calculate the maximum record length of variable length files, so it uses the block size. By setting VARIABLE 
and LENGTH when texting in or keeping a variable length record file, less disc space is used for the WORK 
and TEXT files and better performance can be obtained. 

3-102< Limitations. If a file is saved with a KEEP, UNNUMBERED command (or otherwise created 
without sequence numbers), the TEXT command usually will be of the form TEXT filename, 
UNNUMBERED. New line numbers will be assigned by EDIT/3000 starting with the SET FROM = 
linenumber option in effect and incremented by the SET DELTA = integer option in effect. If the text file 
has variable length records (type "V"), then VARIABLE wiU be set. (See the SET command, paragraph 3-92.) 

When texting in unnumbered files from devices that cannot be rewound, the UNNUMBERED option should 
always be specified. Otherwise, one or more records will be lost from the beginning of the file. 

Any sequence numbers contained in a file specified hy filename must be in the front or rear bytes as specified 
in a SET FORMAT, SET FRONT, or SET REAR command (see the SET command, paragraph 3-92). The 
sequence numbers will be interpreted as line numbers instead of being copied as part of the text. If the 
sequence numbers are not in bytes that match the SET FORMAT or SET FRONT/REAR conditions in effect, 
the command TEXT filename, UNNUMBERED should be used. Then, the sequence numbers will be copied as 
part of the text and new line numbers will be assigned by EDIT/3000, starting from the SET FROM = 
linenumber in effect and incremented by the SET DELTA = integer option in effect. 

If a file has been saved with the KEEPQ filename command, then the filename must be specified in a TEXT 
command for that file. 

If a file has been saved with the KEEPQ filename command, the file is saved in its structured "edit" format, 
instead of in the sequential format in which files normally are stored by the MPE/3000 file system. This is 
accomplished by appending EDIT/3000 variables to the file and assigning a filecode of 1050 or 1051 to the file. 
A filecode of 1050 signifies an EDIT/3000 KEEPQ file (DEFAULT) and a filecode of 1051 signifies an 
EDIT/3000 KEEPQ file (COBOL). All such files are intended to be read only by EDIT/3000, although 
SPL/3000 can read KEEPQ files also, A TEXT command to copy the contents of such a file into the WORK 
file renames the file. To prevent destruction of such a file, enter the commands TEXT filename and KEEP 
filename in a succession. (See paragraph 3-62 for a discussion of the KEEP command and the MPE Com- 
mands Reference Manual for a discussion of filecode and the MPE/3000 file system.) 

Texting in an empty file will result in error #23, FAILURE TO OPEN TEXT FILE (0), with File System 
error #0 (END OF FILE). 

Texting in a file with records greater than 256 bytes will result in error #24, RECORD SIZE TOO LARGE. 

The default TEXT file is limited to disc files on the local computer. If a device or remote file is being used, 
an MPE file equation (see the description of the: FILE command in the MPE Commands Reference Manual) 
must have been issued and an asterisk (*) must be used to back-reference the file. (See the example of 
texting in a card deck in paragraph 3-103). 
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When texting in a numbered file, an extra data segment is required. Since a two- word entry is made in the 
extra data segment for every eight records texted in, the number of records that can be texted in is limited 
by the configured maximum size for extra data segments. Consult your System Manager to determine the 
maximum size for extra data segments (< 32K) and multiply it by 4 to determine the maximum number of 
records that can be texted in from a numbered file. There is no limit on the number of records when texting 
in unnumbered file. 

Trailing blanks are truncated from the records before they are placed in the WORK file. Therefore, if a 
search is made for a string which ends with blanks, the string will not be found if it is located at the end of 
a record. 
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3-103. Examples. Several variations of the TEXT command are shown in the following examples. The 
location of the pointer is illustrated at the conclusion of each command. 

• COPYING A NUMBERED FILE WITH A TEXT filename UNNUMBERED COMMAND 

If a numbered TEXT file is copied into the WORK file with a TEXT filename, UNNUMBERED command, 
EDIT/3000 treats the entire text record as data and generates sequencing information. 

In the following example, the file TEST (with a record size of 60 bytes) is copied into the WORK file with the 
T[EXT] TEST command, the first three lines are listed, and EDIT/3000 operation is terminated. 

Next, EDIT/3000 is accessed and the same file is copied into the WORK file with a T TEST,UNN command. 

When the first three lines are listed, note that EDIT/3000 has appended sequencing information to each 
record. When the WORK file is saved with the K TEST command, EDIT/3000 appends another set of 
sequencing information and now the record size is 68 bytes (as shown by the LISTF TEST,1 command)- 

If the KEEP filename, UNNUMBERED form of the command is used, the sequencing information generated 
by EDIT/3000 will not be appended to the end of the records. 



sLiSTF TEST/ I 






ACCOUNTS GOODUIN 


GnOUP= PUB 




r Ll.n.WAn£, uUL't ~" 


SIZE TYP EOF 


LIMIT 


TEST 


63B FA 3 


3 


I EDI TOR 







HP32?0|A.i|.0I EDIT/3000 TUE/ JUN 3^ 1975/ 3:59 PM 

/s short;t testjl 1/3 

I 1-2- yHAT IS £011/30007 

a 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 
/E 



END OF SUBSYSTEM 
t EDI TOR 



H?»3aS0lA*4.31 EDlT/3000 TUE* JUM 3> 1975^ 4l00 PM 

/S short; T TESTjUNNJL 1/3 

I 1-S. VKAT 15 EDIT/30007 00001000 

S 00002000 

3 EDIT/3000 IS A SUBSYSTEM OF THE HP 3000 00003000 

/K TEST 

PUHGE 0LD7T 

PURGE OF OLD FILE NOT CONFIRMED - TEXT NOT KEPT 

/K TEST 

PURGE 0LD7Y 

/E 



END OF SUBSYSTEM 
: LISTF TEST-*! 
ACCOUNT" GOODVIN GROUPS PU9 



FILENAME CODE LOGICAL RECORD '--• 

SIZE TYP EOF LIMIT 

TEST 6BB FA 3 3 
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t EDITOR 

KP322aiA.O.0l EDlT/30flfl TUE* JUN 3^ 1975* 4:05 PM 

/s short;t test^unnjl 1/3 

1 1-2. WAT IS EDIT/3000? 0000l( 

2 

3 EDIT/3000 IS A SOBSYSTEM OF THE HP 3000 99003000 

/K TEST, UNN 
O'JRGE OLD?Y 
/E 
CLEAR? Y 

END OF SUBSYSTEM 
iLlSTF TEST> 1 
ACCOUNT- GOODVrlfJ GROUPa PUB 



FILENAME CODE LOGICAL RECORD 

SIZE TYP EOF LIMIT 

TEST 60B FA 10 10 

• TEXT filename 

The next example illustrates the use of the TYlXH filename command. Note that the FIND * command causes 
an error message to be displayed. (The pointer location is at line zero after a TEXT command is executed.) 

/? SHORT;tEXT EDIT3 

/FIND* 

*44*LINc NUMBER ZERO CAN NOT BE ACCESSED 

/LIST FIRSTJLIST LAST 

1 1-2. VmAt IS EDIT/3000? 
I 1 MANIPULATED 3Y USING EDIT/300fl COMMANDS. 
/LIST ALL 

I 1-2. WHAT IS EDIT/3000? 

3 £DIT/3a00 IS A SUBSYSTEM OF THE HP 3000 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 

5 CMPE/3000) THAT IS USED TO CREATE AND 

6 MANIPULATE ASCII FILES* 
7 

? CHARACTERS* STRINGS OF CHARACTERS* OR ENTIRE 

9 LINES OF CHARACTE*^S CAN 3E INSEP.TED* DELETED-. 

I^ REPLACED- MODIFIED^ SEARCHED FOR* AND OTHERWISE 

1 I MAMIO'ILATED "5Y 'JSIN3 EDIT/30OT COMMANDS- 



• TEXT filename, range 

The range (3/8) specified in the following example copies lines 3 through 8 of file EDIT2 into the WORK file. 

Note that the location of the pointer is still at line zero even though text starts at line 3. 

/<= «;MOptJTEXT EDIT3 (3/3) 
/FIND* 

*A4*L1NE Ni'MSER ZE^'O CAN NOT 3E ACCESSED 
/LI'-.T FIRSTJLIST LAST 

1 EDIT/a-^a^l IS A SrJBSVSTEM OF THE H© 3000 

8 CHARACTERS* STRINGS OF CHARACTERS- OR ENTIRE 

/LICT ALL 

"> EDrr/3?"? IS A <:U3SYSTEK OF THE HP 3«3T 

/| M'.iLTI^ROGRAMMIMG EXECIfTlVE OPERATING SYSTEM 

5 (^:''E/.^^:^■^) that is ffj^ED to create and 

6 >-ANI->t.'LATE A.<;Cir FILES- 



C'ca^acter";- .'^t'^i:jg^ of characters- O" entire 
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• COPYING A TEXT FILE FROM CARDS 

To copy a TEXT file, located on cards, into the WORK file, perform the following steps as shown in the next 
example: 

1. Log on to the system. 

2. Enter a :FILE command, as follows: 

;FILE filename;DEy=CARD CARD is a device class assigned 

during system configuration to the 
for example card reader. 

:FILE INFILE;DEV=CARD 

3. Place the card deck in the card reader. The first card in the card deck must be a :DATA card, as follows: 

:D AT A\jobname,] {username} [/upass] {,acctname} [/apass] {/filename} A 

where 

jobname 

is the name of the job or session that is to read the data. (Optional parameter.) 

username 

is the user's name, as established in MPE/3000 by the user with Account Manager Capability. 

(Required parameter.) 

upass 

is the user password. (Required if user has a password.) 

acctname 

is the name of the account, as established by the user with System Manager Capability. (Required 

parameter.) 

apass 

is the account password. (Required if account has a password.) 

filename 

is an additional qualifying name that can be used by the job or session to access the data. (Optional 

parameter.) 

The :DATA card used in the example was as follows: 

:DATA MANAGER.SCR 

Note that the jobname parameter was not included and that the username. acctname is the same as that 
used to log on (MANAGER.SCR). 

The last card in the card deck must be an :EOD card. 

See the MPE Commands Reference Manual for further discussions of the :DATA and :EOD commands. 
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4. Press the RESET switch (or equivalent) on the card reader to read the cards. 

5. Enter the :EDITOR command to access EDIT/3000. 

6. Enter the TEXT command. The command used in the example is 

TEXT *INFILE,UNNUMBERED 

Note: The asterisk is a back reference to the file defined in the :FILE command. The 
UNNUMBERED parameter is recommended because the file to be read did not 
contain line numbers. (Note that EDIT/3000 assigned line numbers as the file 
was texted in.) 



•-HELLQ MANAGEP-SCP. 


SES7I0:i 


:vj inE". = -fS!-"'? 


•-.ED, I AY 


2*1, [^7 5. 'iiiil M 


HP3P.n(iP,C 


.nfj.^A 


iFILE INFILE; DEV=CAr!D 


: ELniTO^ 




HP3223IA. 


U.^l ZDIT/S^'IS VED. 


/S SHORT 




/TEXT *I.VFILE-.UN^JUM5EPED 


/LIST ALL 




1 


JOHN eiCTOWN 


2 


LOIS ANYONE 


3 


ALI BA9A 


4 


JAMES DOE 


S 


JOHN DOUCHE 


6 


MARY MEEK 


7 


SPACE MANN 


3 


KING ARTHUH 


9 


KARISSA GSANDTR 


10 


JENNA GRANDTR 


1 I 


SWASH BUCKLER 


12 


KNEE ailCKLEr! 


/KEEP NAMELIST 


/END 




END OF SUBSYSTEM 


;BYE 





;1A^ '>«, IQ??, 9! ^7 AM 



CPU tSECJ = 75 

CONNECT <MIN) = 56 

M ON^ JUN 3fl# 197Sj 2:00 PM 

END OF SESSION 
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3-104. USE COMMAND 



3-105. Purpose. The USE command designates a file (USE file) to be used by EDIT/3000 as a source of 
commands and/or text. 

3-106. Form. The form of the USE command is 

U[SE] \filename] 

3-107. Description. The USE command causes EDIT/3000 to read commands from the USE file. In an 
interactive session, commands are read from the USE file, but any messages or requests for text records to be 
entered from the terminal are displayed on the terminal. 

A USE command without the filename parameter functions as a return statement from the current EDIT/3000 
USE command file in the same way that an end of data indication does. Note, however, that because the USE 
command will not be recognized if the FLAG is false (in a WHILE block for example,see Section IV), this type 
of return (unlike the end of data indication) is conditional. Thus, this conditional return may be used to write 
recursive EDIT/3000 command files. In batch mode, EDIT/3000 reads commands from the USE file but no 
interaction with the user occurs. Any text records can be in the USE file, or the USE file can transfer control to 
another file (INPUT or HOLD) to read the records. It is recommended that the Q command (see paragraph 
3-80) be used in a USE file to remind you (or another user) of the purposes of the USE file. Text records can be 
included in a USE file and will be interpreted as such if the SET BATCH command is used. This allows you to 
operate in an interactive session in full batch mode (with text records following commands in the USE file). 
This option is useftil when the same commands and text records are to be used in many positions in the WORK 
file. 

A USE file may contain comments wherever a command may appear but not embedded in a command. A 
comment must begin with two adjacent less-than signs («) and end with two adjacent greater-than signs 
(»). For example, a USE file may contain: 

TEXT EDITFILE 

FINDQ FIRST ; FIND "#" ; «LOCATE LINE TERMINATED WITH #» 

LIST 

3-108. Limitations. Any file to be read as a USE file must contain ASCII-coded records and must have a 
filecode between and 1023. (See the MPE Commands Reference Manual for a discussion of filecode.) 

The USE file should be kept unnumbered unless the commands are terminated with a semicolon, which 
signals to EDrr/3000 that the line number is not part of the command. 

END in a USE file causes the USE command to terminate; the USE file is exited and EDIT/3000 prompts 
you with its usual slash. Note that END as the final line in a USE file is of no consequence — whereas if 
END appears anywhere else in the USE file, the lines following it are not executed. 
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3-109. Examples. Two examples are shown to illustrate the USE command and USE files. 
# READING COMMANDS FROM A USE FILE 

The USE file (USEFILE) in the following example contains the commands TEXT, CHANGE, FIND, MOD- 
IFY, and LIST. The command END is added later. 



When the command USE USEFILE is entered, EDIT/3000 copies the file TEST into the WORK file, changes 
"EDIT/3000" to **HP 3000 TEXT EDITOR" for aU occurrences of EDIT/3000, finds the first line, then 
searches forward from there to find the string "ASCII". The line (line 6) containing "ASCII" is displayed 
for modification and the characters *'-CODED" are inserted. EDIT/SOOO then lists the contents of the 
WORK file. When END is added in line 2.1 of USEFILE, the commands which follow line 2.1 are not exe- 
cuted when the USE command is used. 



1 TEXT TFST ft 

2 CHUfiCC ■FDTT/300O- W ■HP 1000 TFXT FDITfiR- TH »? L ^ 

3 FINDO riRSTjFIND -ASCII" 

4 Moniry • 

5 LIST ALL 
ft // 

/KEEP USFfJLE,UNN 
/USE UStFICt 

1 l«2, WHAT IS HP 3non TtXT KPITOR? 

3 HP 30OO TKXT EOITOP TS A StfflSYSTEM OF THF HP3000 

6 HAHIPUI.ATt A5CII FTLfS. 

(U )- 

MODIFY 6 
MANIPULATt ASCII FTLF.S, 

I-CUPtP 
MAMIPUI.ATE ASCIl-CnpFD FILES, 

1 1-2, UHAT IS HP 3000 TEXT EHITOP? 
7 

3 HP 3000 TKXT finiTDP IS A Sl'ti-Si ST1="M OF THF HPJOOO 

4 MULTIPPOCPAM^'ING KXtCUTlVE OPtRATING SYSTEM 

5 (MrE/300O) TI^AT IS USED TO CPtlATE AND 

6 MANIPULATE ASCII-CPDFD FILE5. 
/T USEFILE 

IF IT 15 OK TU CLEAR HF5P0>JD "YES- 
CLEAP? YES 

FILE UNNUMBERED 
/ADD 2.1 

3.1 END 

2.2 // 

/k'usef]le#unn 

USEFilF already exists - RESPOND )fES TO PURcF OLD AMD THEf KEEP 
PUPGE OLD?YtS 
/USE USEFILE 

1 1-2, WHAT IS HP 3000 TEXT EnjTOP? 

3 HP 3000 TEXT EDlTOP IS A SUhSYSTEM OF THF HP3000 
/ 
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• READING COMMANDS AND TEXT FROM A USE FILE 

USEFILE2, shown in the following example, contains the commands TEXT EDIT2, ADD, then 9 lines of text 
(including blank lines) to be added. The characters // signify the end of the text records. 

Note: If the USEfile is prepared using the EDIT/3000 ADD command, 
EDIT/3000 will interpret // as the end of the ADD command. To 
overcome this, enter //, then a blank character before RETURN so 
that line 13 (LIST ALL) can be added. When the USE file commands 
are executed, the blank chsiracter following // will be ignored. 

Before the USE USEFILE2 command is entered, the SET BATCH command is entered to inform EDIT/3000 
that the USE file contains text records. 

EDIT/3000 copies the contents of file EDIT2 into the WORK file by executing the TEXT command, lists the 
lines that were added to EDIT2, executes the LIST ALL command, then saves the WORK file contents by 
executing the KEEP EDITS command. 

1 TEXT EDIT2 

2 ADD 
3 

H 1-a. EDlT/33'3'3 FEAT';oES 
S 

6 'JITH EDIT/333'5, JT I? POSSIBLE TO 
■7 

a CREATE AND BUILD A tiE^J FILE <CALL£D A VQ?.K FILE) 

9 av ENTERING COMMANDS AND LINES OF TErT F'^OM THE 

13 STANDA9D INPUT DEVICE On F^OM A SPECIAL DISC FILE 

11 CALLED THE HOLD FILE. 

12 // 

13 LIST ALL 

/KEE° r.I5EFlL£2,t.lNNUK3EP.ED 
/SET SATCH 
/USE U^EF1LE2 

12 

13 1-2. EDIT/33g0 FEATURES 

14 

15 VITH EDIT/33213* IT IS POSSIBLE TO 

I 6 

17 CREATE AND BUILD A N£tf FILE (CALLED A WO^K FILE) 

16 BY ENTERING COMMANDS AMD LINES OF TEXT FPOM THE 
19 STANDARD INPUT DEVICE OR FROM A SPECIAL DISC FILE 
33 CALLED THE HOLD FILE. 

I 1-1* WHAT IS EOlT/ja-?^? 
2 

3 EDIT/3333 13 A S1J3SYSTEM OF THE H^ 32i9i'^ 

k MULTI-'ROG^AMKING EXECyTIUE QoERATlNG SYSTEM 

5 <M°E/3333) THAT IS USED TO CREATE AND 

6 MANIOTJLATE ASCII FILES. 
7 

8 CHABACTERSj STRINGS OF CHARACTERS* 0° ENTIRE 

9 LINES OF CHARACTERS CAN BE INSERTED^ DELETED* 
la REOLACEDj M0D1FIED> searched for* and OTHERWISE 

II MANIDULATED BY USING EDIT/3333 COMMANDS. 
12 

13 1-2. EDIT/3930 FEATURES 
14 

15 WITH EDlT/333a> IT IS POSSIBLE TO 
16 

17 CREATE AND BUILD A NEW FILE (CALLED A WORK FILE) 

16 BY ENTERING COMMANDS AND LINES OF TEXT FROM THE 
19 STANDARD INPUT DEVICE OR FROM A SPECIAL DISC FILE 
23 CALLED THE HOLD FILE- 

/KEEo ED1T3 
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3.110. VERIFY COMMAND 

3-111. Purpose* The VERIFY command displays the EDIT/3000 options in effect. 

3-112, Form The form of the VERIFY command is 

V[ERIFY]r[AL[L]] [3[ATCH1] [,DEL[TA1][,DE[PTH] ] [,D[ISPLAY]] [,F[ILES] ] [,FIX[ED]) 
[,FO[RMAT]] [,FR[OM]] (,FRON[T]] [,LE[FT]] (,LEN[GTH]] [,L[INES]] 
[,LO[NG]] [,P[OLL]] [,Q[UIET]] [,R[EAR]] [,RI[GHT]) [,SH[ORT]] [,S1IZE]] 
[,TABC[HAR]] [,T[ABS]] [,T1(MES]] [,TO[TAL]] [,V[ARIABLE]] 

3-113. Description* The VERIFY command is used to display all the current EDIT/3000 options. Paramet- 
ers may be added to the VERIFY command in any order but must be separated by commas. Parameters 
may be abbreviated to as few of their leading characters as needed to identify the parameters. Any abbrevia- 
ation that includes characters beyond the required minimum will likewise be accepted. For example, you 
may abbreviate [.FORMAT] to [,F0], [,FOR], [,FORM], etc. All VERIFY parameters except FILES and 
TOTAL refer to those options which can be modified with a SET command (see paragraph 3-92). The FILES 
parameter causes EDIT/3000 to display all references to MPE/3000 files during the current EDIT/3000 
cycle. The TOTAL parameter displays a coxmt of the number of lines in the current WORK file (this 
count changes after an ADD, DELETE, INSERT, JOIN, or TEXT command is executed). 

If the VERIFY ALL command is used, all options in effect are displayed. 

3-114. Limitations. If the VERIFY command is entered with no parameters, it is interpreted as a FIND * 
command and will locate the current position of the pointer. Therefore, if you wish to verify any of the options 
in effect, you must append them to the VERIFY command or use the VERIFY ALL command. 
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3-115. Examples. The following examples illustrate the use of the VERIFY BATCH, VERIFY FROM, 
VERIFY, VERIFY FILES and VERIFY ALL commands. Note that, since the VERIFY command {with no 
parameters) is interpreted as a FIND * command, line 4 (the present location of the pointer) is displayed. 

Note also that the the VERIFY ALL command displays the present location of the pointer before displaying all 
options in effect. 

/VERIFY BATCH 

POLL ■ TRUE (I.E. BATCH - FALSE) 

/VERIFY FROM 

FROM - I 

/VERIFY 

4 MULTIPROGRAMMING EXECUTIVE OPERATING SYSTEM 
f CI ) 
/VERIFY ALL 

4 MULTIPROGRAMMIMG EXECUTIVE OOERATINC SYSTEM 
»(I ) 
POLL - TRUE (I.E. BATCH » FALSE) 
REAR * TRUE CLE- FRONT ■ FALSE) 
DELTA « 1 

CURRENT DEPTH * 0« THE DEPTH LIMIT - 10 
RIGHT «72 
LENGTH - 72 

LONG « TRUE (J.E. SHORT - FALSE) 
TIME - 50 

TOTAL NUMBER OF CURRENT LINES » I I 
FROM - I 
LEFT « 1 

FIXED » TRUE (I.E. VARIABLE - FALSE) 
SIZE « 

DISPLAY « TRUE <!.£. QUIET - FALSE) 
FORMAT -DEFAULT 
FlLESl 

VORKI KI 331 31 5 

KEEP I 

TEXT I EDIT2. PUB. GOODWIN TUE* MAY 13, I 975# 1 1 1 6 ^M 

JOINi 

If the WORK file has been changed, VERIFY ALL and VERIFY FILES will print an appropriate message 
beneath the name of the WORK file, as in the following: 

/T TEST 
/LIST ALL 

1 £011/3000 IS A Sl'BSYSTFM OF THF HP 3000 

2 HULTIPPOCR*H"ING FXtCUTlVE OPfBATIWC SYSTK"^ 
/ADO 

3 (MPE/3OO0) THAT Ts UsStn TO CPEATE iHO 

4 MANIPULATE ASCII FILf'S. 

5 // 

/v'filfs 

FILESt 

HOPK: K2211204 

MOPK fTlT. HAS PEFN AITEPED 

KEEPi TEST.KTAtC.Ur.FRS WFD, ADG 9i 1978, 12:03 PM 

TEXT! TtST.KTrjC.I'SfPS WFU, AOC 9, 1978, 12:04 PM 

JOTN! 
/K TEST 

TEST ALBEAnv EXISTS - RESPONn YES TO PUHCE OLD A^O THEN KEfP 
PUflCC OLD?Y 
/END 

CKO OF aUPSYSTFH 

The VERIFY TABS and VERIFY TABCHAR commands are iliustrated in the next example. If a SET 
TABS or SET TABCHAR command has not yet been used, the Editor responds to a VERIFY TABS or 
TABCHAR command with NOTABS USED. If the default tab stops are set, a VERIFY yields the default 
column numbers. Note that the default tab chaiacter is Control I ('9). If you change the tab stops with 
another SET TABS command, the VERIFY TABS commands yields the new column numbers. 

/^/ZPIFY TA3S 

NO TABS USED 

rJEP.lTY TABCHAR 

WO TABS USED 

/SET TABS 

/^/ERIFY TABS* TABCHAR 

TA3S » < 4< 7> |fl« 13« I6« I9> 32* 25« 23. 31* 65> 71) 

TAB CHARACTER » '9 

/«ST TA3S - <5*P0*AS) 

/iJERIFY TABS 

TABS - ( 5* 20* 45) 

/ 



i 
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3-116. XPLAIN COMMAND 

3-117. Purpose. The XPLAIN command displays summary descriptions of selected EDIT/3000 commands 
or all EDIT/3000 commands. 

3-118. Form. The form of the XPLAIN command is 



XPLAIN] 



[ALL] [,A[DD] ] [,B[EGIN] ] [,C[HANGE] ] [,CO[PY] ] [,D[ELETE] ] 
[,E[ND] ] [,F[IND] ] [,G[ATHER] ] [,H[OLD] ] [ J[NSERT] ] 
[,J[OIN] ] [,K[EEP] ;| [,L[IST] ] [,M[ODIFY] ] [,N[OT] ] [,0[R] ] 
[,P] ROCEDURE] ][,Q][,R[EPLACE] ] [,S[ET] ] [,T[EXT] ] 
[,U[SE] ] [,V[ERIFY] ] [,W[HILE] ] [,X[PLAIN] ] 
[,Y[ES]][,Z::=] 
[^OFFLINE] 



3-119. Description. The XPLAIN command displays a brief description of each command included as a 
parameter with the XPLAIN command or all commands if the parameter ALL is included. Note that the 
parameters ALL and OFFLINE must be spelled completely, the parameter for COPY must be CO (or 
[,COP] , [,COPY] ), but all other parameters may be abbreviated to the first letter only (or the first letter 
plus any additional letters of the command; for example, [,LIST] may also appear as [,L], [,LI], and 
[,LIS]). If OFFLINE is specified, the descriptions are sent to the listfile as specified in the MPE/3000 
:FILE command that defined listfile. (See paragraph 3-121, EXAMPLES.) 

3-120. Limitatioiis. When the XPLAIN command is used with no parameters, a description of the XPLAIN 
command itself is displayed. 
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3-121. Examples. The following examples illustrate the use of the XPLAIN ADD, XPLAIN OR, XPLAIN, 
and XPLAIN ALL,OFFUNE commands. 

The XPLAIN command with no parameters displays a description of the XPLAIN command itself. 

Before the command XPLAIN ALL,OFFLINE command can be executed, the listfile must be declared with an 
MPE/3000 :FILE command and equated to an output device, then the : EDITOR command must reference this 
file name. See the first two lines in the example. 

I FILE out;dev-lp 

lEDITOR ♦OUT 

HP32201A.4.91 EDIT/303» TUE* KAY 13# 1975* l!l9 °H 

/XPLAIN ADD 

ADDl TO ENTER LINES OF TEXT INTO THE TEXT FILE FROM THE JSTDIN DEVICE 

OR FROM THE HOLD FILE 

EXAMPLE I ADD#60«HOLD 

/XPLAIN OR 

0R» RESETS FLAG TO BE TRUE IF IT IS FALSE# OR TO FALSE IF FLAG IS 

TRUE 

EXAMPLE: BEGIN*! 

FlNm"THIS"/*<+40) 

OR 

FIND1"PROGRAM"/*<+20 3 

END 

/XPLAIN 

X^LAINi TO OBTAIN AN EXPLANATION OF THE COMMANDS 

EXAMPLEl XPLAIN A^SET,F 

/XPLAIN ALL^ OFFLINE 

*** OFF LINE LISTING BEGUN- *•• 



< 
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3-122. Z::= COMMAND 

3-123. Purpose. The Z::= command is used to assign a character string value to Z::=. 
3-124. Form. The form of the Z::= command is 
Z:: = 

3-125. Description. When the Z::= command is entered in an interactive session, EDIT/3000 displays 

ENTER Z:: = 
at which point you may enter the value to be assigned to Z::=. For example, 

ENTER Z I I - 

In a batch job, EDIT/3000 assigns the record immediately following the Z::= command record to Z;:=. 

A series of EDIT/3000 commands, separated by semicolons, can be assigned to Z:: = so that repetitious series of 
commands need not be repeated. For example, 

/Z:: = 

ENTER Z::- 

LIST LAST;FINDQ FIRST;FIND "EDIT/3000" 

Once a value is assigned to Z::=, this value can be invoked in an EDIT/3000 cycle by entering Z:: (without 
the equals sign) or using Z:: as part of a command, and whatever has been assigned to Z::= will be substi- 
tuted by EDIT/3000. Z:: is only effective as a command line or part of a command line, not to input data 
once in the ADD, INSERT, REPLACE, or MODIFY modes. 

The default value for Z:: is **Z::". It can be reset to the default by entering CONTROL Y or "//*' when 
the prompt ENTER Z: := is displayed. 

To find the current value of Z: :, enter 

Q"Z::" 

3-126. Limitations. No more than 255 characters may be assigned to Z:;=. When an EDIT/3000 cycle 
begins, Z::= is undefined. You must define it by using the Z;:= command, then entering the value to be 
assigned. The Z: : form of the command (which causes execution of the value assigned to Z: : =) may not be used 
until you have defined Z::=. 

You can change the current definition of Z::= by entering another Z::= command and assigning another 
definition. The old definition is lost. Any definition of Z::= is lost when EDIT/3000 terminates. 

The Z;; command is not effective on the current record. That is, multiple commands on one line will use 
the previous value of Z::, even if Z::= is one of the commands on that line. For example, suppose Z: : con- 
tains the value FIRST, then FIND Z:: in the following command line locates the first column of the first 
line rather than the string "example": 

/Z::=:FIMD Z:i 
ENTER 7.1 : = 

1 This is an example using LDITOP, 
-(1 ) 
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3-127, Examples. The following examples illustrate the use of the Z: :- command. 

The first example sets Z::= equal to the string "(120-1)". The command CHANGE Z:: TO "I" IN ALL then 
searches the file JUST (a FORTRAN/3000 source program copied into the WORK file with the TEXT 
command) for all occurrences of the string "(120-1)". Each time the string is found, it is changed to "I". 

The next example sets Z::= equal to 

FJNDQ FIRST;FIND "58:";CHANGE "58:" TO "28:" 

Each time Z: : is entered, EDIT/3000 executes these three commands. 



/TEXT 


JUST 














/Z\ 1 = 
















ENTER 


Zt : = 














"a23- 


■1>" 














/CHANGE 2: 


: TO 


"I" IN ALL 










112 




SI6 


L=1-6I 










I2B 




236 


L=l-59 










143 




256 


L-1-62 










150 




266 


L=l-61 










159 




27 6 


L=l-57 










177 




296 


L*l-59 










165 




306 


Lal-60 










/2: i" 
















ENTER 


21 t = 














FINDO 


FIRSTJFIND "58r';CHANG£ ' 


'58:" 


TO "2Bi" 






/Zli 
















50 




120 


IFtBUrri C58:3] 
(16 )t 


-CO.'* 


".AND. BUFFI C57(n.NE." 


">GOTQ 


130 


50 




12?l 


lFC3rjFnC2Bl31 


.E'3." 


■♦.AND.9UFFltS7il l.NE-" 


■MGOTO 


13i5 


/Zll 
















5 J. 






IFOUFFl C59I31 


.EQ." 


•'.AND.aLrFFlC58:n.NE." 


•■>GOTO 


153 


SI 






lF<a'JFFlC59i3] 


.El." 


".AMD.aLrFFlC28:Il-NE." 


")GOTO 


150 
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The Z: := command can be used to alter commands in a WHILE loop during the execution of the loop. For 
instance, you can specify a different line number or string to be edited each time through the loo v In the 
following example, Z;: allows the user to select which lines are to be replaced for each iteration of .,.e loop. 
The loop is terminated by entering CONTROL Y; in this example, CONTROL Y was entered just before 
the point where error #53 was displayed. (Make sure that Z:: has been cleared before entering the WHILE 
loop.) 

/SET SHORT 

/Z:: = 

ENTER Z::= 

// 

/WHILE FLAG 

/ BEGIN 

/ Z; : = 

/ R Z: : /Z: :+1, HOLD, NOW 

/ END 

ENTER Z::= 

3 

3 LINE 3 

3 HOLD LINE 1 

4 LINE 4 

4 HOLD LINE 2 

ENTER Z::= 
9 

9 LINE 9 

9 HOLD LINE 1 

10 LINE 10 

10 HOLD LINE 2 

ENTER Z::= 

*53*TIME-0UT ON WHILE ITERATION 
/L ALL 

1 LINE 1 

2 LINE 2 

3 HOLD LINE 1 

4 HOLD LINE 2 

5 LINE 5 

6 LINE 6 

7 LINE 7 
S LINE S 

9 HOLD LINE 1 

10 HOLD LINE 2 

11 LINE 11 

12 LINE 12 

13 LINE 13 

14 LINE 14 

15 LINE 15 

16 LINE 16 
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3-128. : COMMAND 

3-129. Purpose. The : command is used to enter system commands from within EDIT/3000. 

3-130. Form. The form of the : command is 

:MPE command 
For example, 

:PURGE AFILE 

3-131. Description. The : command allows the user to enter certain MPE commands without using the 
BREAK key. The colon indicates to EDIT/3000 that it should pass the rest of the record to the MPE oper- 
ating system. 

A : command may appear in a USE file or a WHILE block. In addition, Z:: may be used in any : command | 
as a substitute for a parameter. 

Any errors or warnings are reported as follows: 

**** COMMAND ERROR xx, yy 
** COMMAND WARNING xx, yy 

where xx indicates the message number and yy the parameter in error. In addition, the MPE messages are 
displayed. The following example illustrates an error message: 

/:LISTF FILE1 

**** COMMAND ERROR 907, 

NON-EXISTENT FILE, CCIERR 907) 

/ 

where 907 indicates the message number and the parameter in error. 

An exception to this format occurs in Series I machines, in which case the MPE message is not displayed. 
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3-132. Limitations. 

Using the BREAK key during the execution of a : command causes a break in EDIT/3000- When RESUME 
is typed, execution of the command continues. 

Valid commands are those which can be executed programmatically (see the MPE Intrinsics Manual, Section 
IV, the subsection entitled "Executing MPE Commands Programmatically,** for a list of such commands). 
Commands which are valid MPE commands but which cannot be executed programmatically (such as the 
MPE :RUN command) cause error #12. Commands which are not valid MPE commands cause error #975 
(except on Series I machines), as do any User Defined Commands. Note, however, that User Defined 
Commands are valid during a BREAK. 

If used in a multiple command sequence, the : command must appear last (and only once). For example: 

/T AFILE J> ALL;:SHOWTIME 

If the : command appears earlier in the sequence of commands, only the commands up to and including the 
: command will be executed. 



3-133. Examples. The following example illustrates the use of the : command. The MPE :FILE com- 
mand is used to equate EDTLIST to a line printer other than the standard list device and the LIST ALL, 
OFFLINE command is used from within EDIT/3000 to obtain an offline listing of the WORK file. The 
MPE :TELL command is used to send a message to all users logged on in the STUDENT account. A BREAK 
from EDIT/3000 was not necessary. 

/TEXT E0IT3 

/LIST 1/6 

1 I-2. WHAT IS EDTT/3aot>7 

7 

3 FDlT/3000 15 A SimSTSTEM OF TMF Hp 3000 

4 »*Ur.T!PPOGPAM*«INC EXECUTIVE OPERATING SYSTEM 

5 (HPE/3000) THAT IS USEO TO CPLATF ANTl 

6 HAKIPOl.ATE ASCII FUFS, 
/IFXLE EDTLI5TjDEV=FASTLP 

/LIST AH.,OKF-LTNF 

•«« OFF tlKl LTSTINC bFCrN, »•• 

/ITCLL 0.5TUDE>JTSiCLA5S PC5UHLA TN 20 MINUTES. 
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Table 3-2. Summary of Parameter Descriptions 



colnum 


an integer specifying the column number in a line. 


filename 


the MPE/3000 file name. 


increment 


the value by which line numbers are incremented. 


integer 


an integer in the range from 1 through 99999 when SET FORMAT = 
DEFAULT or from 1 through 999 when SET FORMAT = COBOL. 


limit 


an integer from 1 through 9999. 


Unenumber 


the value assigned to line numbers. 


newstring 


a character string that replaces oldstring. 


oldstring 


a character string to be replaced in the WORK file. 


position 


a specific location in the WORK file 


range 


one or more positions in the WORK file. 


rangelist 


one or more ranges. 


recnum 


a logical record number in a file. 


startcolumn 


the starting column number of a portion of a record. 


startline 


the first line of a group of lines. 


stopcolumn 


the ending column number of a portion of a record. 


stopline 


the last line of a group of lines. 


string 


a group of characters. 
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EDIT/3000 ADVANCED COMMANDS 



SECTION 



IV 



In addition to the commands described in Section III, EDIT/3000 allows you to use seven advanced commands, 
as follows: 

BEGIN 

The BEGIN command is used as the first expression in a BEGIN-END pair to delimit a compound 
command. 

END 

Terminates a BEGIN-END pair. 

NOT 

Reverses the normal control, or "flag", within a BEGIN-END pair for execution of the next command. 

OR 

In a BEGIN-END pair, the OR command resets the flag to true if it is false, or skips the OR command 

and the following command if the flag is true. 

PROCEDURE 

Calls a logical procedure written previously and stored in a segmented library (SL) for execution by 

EDIT/3000. 

WHILE 

Causes EDIT/3000 to repeat the next two expressions (or one if a flag is declared) until the first 

expression fails (the flag is set to false) or until the SET TIME limit is exceeded. 

YES 

Restores normal control within a BEGIN-END pair (resets the flag to true). 

When the advanced commands are used in a logical sequence with the basic EDIT/3000 commands, they form 
command blocks with recursive properties. In addition, logical procedures can be written in SPL/3000 
(Systems Programming Language for the HP 3000 Computer System) or FORTRAN/3000, and these proce- 
dures can be called for execution with the PROCEDURE command. 
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4-1. WHILE COMMAND 
4-2. PURPOSE 

The WHILE command causes EDIT/3000 to repeat the two commands following subject to these conditions: 

1. While a WORK file condition specified in the EDIT/3000 command immediately following the WHILE 
command can be met (the flag is true). 

2. Until the number of iterations specified by the SET TIME = limit command has been met (the default is 
50 iterations). See Section III, paragraph 3-92 for a discussion of the SET command. 

For example, the WHILE block 

WHILE 

FIND "EDIT/3000" 
LIST* 

will cause EDIT/3000 to search forward in the WORK file from the current location of the pointer, find the ^ 
string "EDIT/3000", and list the line containing the string. Once the line has been listed, the pointer is located 
at the first position of the next line and EDIT/3000 will search forward again for another occurrence of 
"EDIT/3000". When the end of the WORK file is reached, the condition specified in the first command (the flag 
command) will fail (**EDIT/3000" can no longer be located) and the WHILE block will terminate execution. (If 
the number of iterations specified in a SET command is reached before the end of the WORK file, execution 
will terminate also.) 

If FLAG is used in the WHILE command, EDIT/3000 will repeat a single command (the command following 
the WHILE command) until the flag is set to false or until the number of iterations allowed by the SET TIME 
option in effect is reached. 

For example, 

WHILE FLAG 

FIND "EDIT/3000" (+ 8) 

will find the string "EDIT/3000", position the pointer to the last character in the string (number of characters 
in string -1) and search forward from there for another occurrence of the same string. When the end of the 
WORK file is reached, the flag will be set to false and the iterations will terminate. 

Note: The character position (+8) is necessary in the FIND command to position the 
pointer to the last character in the string. Otherwise, EDIT/3000 would find 
the string, the pointer would be located at the first character of the string, and 
the next iteration would find the same string. In the above example, 1 can be 
used instead of 8, 

4-3. FORM 

The form of the WHILE command is 
WHILE [FLAG] 
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4-4. DESCRIPTION 



As long as the condition specified in the first command following a WHILE command can be met, EDIT/3000 
sets a flag true and the commands in the WHILE block continue to execute. When the condition specified in the 
first command cannot be met, EDIT/3000 sets the flag/h/se, execution of the commands in the WHILE block 
terminates, and a "soft" error message is displayed. (A "soft" error results in an error message but does not 
terminate EDIT/3000 operation; a *'hard" error results in an error message and terminates EDIT/3000 
operation. See Section V for a discussion of errors and error messages.) 

Note: When a soft error does occur, only a NOT, a YES, an OR or an END command 
can be executed during the WHILE or USE modes. See paragraph 4*13 for a 
discussion of the NOT command and paragraph 4-25 for a discussion of the 
YES command, 

4-5. LIMITATIONS 

In a WHILE block, a command may be a basic command or a set of basic commands preceded by a BEGIN 
command and terminated by an END command. (The BEGIN-END pair enclosing other commands comprises 
a compound command.) 

The commands in a WHILE block will execute only as long as the SET TIME = limit option in effect is not 
exceeded, even if the flag remains true. The default limit is 50 iterations. (If the flag is set to false by 
EDIT/3000, of course, execution will terminate before the SET TIME value is reached.) The number of 
BEGIN-END pairs allowed in a WHILE block is determined by the SET DEPTH = limit command. The 
default limit is 10. 

If the SET SHORT command is used, display of WHILE block commands during execution is inhibited. 

If data is embedded in a WHILE block (usingSET BATCH), itwillbetreatedasif it were a command; slashes, 
numbers, and preceding blanks are removed. 
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4-6. EXAMPLES 

Two examples of the WHILE command are provided. See paragraph 4-7, "BEGIN-END COMMAND," para- 
graph 4-13, "NOT COMMAND/* paragraph 4-19, "OR COMMAND," and paragraph 4-25, YES COMMAND" 
for examples of more complex WHILE blocks which use BEGIN-END pairs, and the NOT, OR, and YES 
commands. 

The WORK file is shown below. 



/s sHon?;? £dit3;l all 

I 1-2. WHAT ic EDIT/3a£»C»? 

3 £DIT/3<9(8t5 IS A S'.r9«;YSTEM OF THE HP 3000 

4 MTJLTIOWOGOAMMING EXECfiTIVE OPERATING SYSTEM 

5 (MOE/33{53) THAT I? tJSED TO C^^EATE AND 

6 MANIPfJLATE ASCII FILES. 
7 

8 CHARACTER';, <^T^ING? OF CHAPACTER?;, 0« ENTIRE 

9 LINES OF CHAPACTEHS CAN 3E INJECTED, DELETED/ 
13 REPLACED/ MODIFIED/ SEARCHED FQP/ AND OTHERWISE 
II MANIPULATED BY USING EDlT/3a0fl COMMANDS. 

12 

13 1-2. EDIT/3^00 FEAT'r<lE? 

I a 

15 WITH EDIT/30^3, IT IS OQ'^^IBLE TO 

16 

17 CREATE AND BMILD A NEW FILE (CALLED A UO«K FILE) 

18 3Y ENTEOING COMMANDS AND LINES OF TEXT F^OM THE 

19 STANDAJ^D INPUT DEVICE OP. FPOM A SPECIAL DISC FILE 

20 CALLED THE HOLD FILE. 
21 

22 SAVE THE WOPK FILE INTO A °ERMAN£NT FILE CALLED 

23 THE TEXT FILE. 
24 

25 CALL THE TEXT FILE BACK INTO THE VQ^K FILE FO** 

26 F'r^THEH ADOITIONS^ aND/OH EDITING- 
37 

2B CHANGE ALL OCCtmENCES OF A CHARACTER STRING WITH 

29 ONE COMMAND. 

3(^ 

31 DELETE CHARACTERS AND LINES FROM THE WORK FILE. 



< 
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In the following exainple, EDIT/3000 searches forward from the first position of the first line, finds the string 
"EDIT/3000" in line I, and lists it. EDIT/3000 then searches forward again and finds and lists the string in 
lines 3, 11, 13, and 15. The string is not found again before the end of the WORK file is reached and the 
condition specified in the FIND "EDIT/3000" command fails. EDIT/3000 sets the flag false and prints the error 
message 

*21* STRING NOT FOUND BEFORE LIMIT AT DEPTH 2 

Note that after the WHILE command is entered in a session, EDIT/3000 displays the / prompt character, then 
indents three positions for the next command. This is depth 2. 



/riNDQ riRST 

/WHILE 

/ FIND '•EDIT/3BB0" 

/ LIST* 

/FIND -EoiT/aaaB" 

1 1-2. VHAT.IS EDIT/30007 
(15 )t 
/LIST* 

1 1-2. WHAT IS EDIT/3000? 
/FIND "EDlT/300e" 

3 eoxT/3aaa is a subsystem of the hp 3000 
t(l ) 

/LIST* 

3 EDIT/30ae IS A SUBSYSTEM OF THE KP 3000 
/FIND -EDir/3fl«fl" 
11 MANIPULATED BY USING EDIT/3000 COMMANDS. 
(22 )t 

/i.isr* 

11 HANIPULATEO BY USING EOIT/3000 CONHaNDS- 
/FIND "EDtT/3e00- 
13 1-2. eolT/3000 FEATURES 
(7 >i 
/liIST* 

13 1-2. EOIT/3000 FEATURES 
/FIND "EOIT/3afl0"* 
15 WITH EDlT/3000# IT IS POSSIBLE TO 
<6 )t 
/LIST* 

15 WITH EDIT/3000y IT IS POSSIBLE TO 
/FIND -EDIT/3000" 
•SI •STRING MOT FOUND BEFORE LIMIT 
AT DEPTH 2 
-/LIST* 
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The next example illustrates the use of the WHILE FLAG command. The WHILE FLAG command causes the 
next command (instead of the next two commands) to be repeated until the condition specified in the command 
fails and the flag is set to false by EDIT/3000. 

The command following WHILE FLAG (FIND "EDIT/3000"(+8)) searches forward, finds the string in line 1, 
and lists it. The pointer is set to the last character of the string because of the (+8) character position 
parameter. (To find the last character in a string, the character position parameter must be set equal to 
number of characters in string -1 .) 

The string is found and listed again in lines 3. 11, 13, and 15. 



/riNDQ FIRST 

/WHILE FLAG 

/ FIND "EDlT/30a0"C+83 

1 1-2. WHAT IS EDIT/3330? 
(23 M 

3 EDIT/3300 IS A SUBSYSTEM OF THE HP 3300 

11 MANIPULATED BY USING EDIT/300fl COMMANDS. 

(33 J» 
13 1-2. EDlT/300a FEATURES 

(15 )t 
15 VITH EDXT^3003^ IT IS POSSIBLE TO 
(14 )» 
*21*STRIN6 NOT FOUND 3EF0RE LIMIT 
AT DEPTH 2 



{ 



The following example illustrates a FIND command in a WHILE block that does not use the character position 
parameter to position the pointer to the last character in the string being searched for, 

EDIT/3000 positions the pointer to the first character in the string. Thus, subsequent iterations of the FIND 
command locate the same occurrence of the string because the pointer location is not changed. The iterations 
were terminated by typing CONTROL Y. 



/FINDQ FIRST 
/WHILE FLAG 
/ FIND ■'EDIT/3000" 
/FIND "EDIT/SeSFa" 

1 1-2. WHAT IS EDIT/3fl00? 

(15 )t 
/FIND "EqiT/Sa^a" 

1 1-2. WHAT IS EDIT/3008? 

U 5 )» 
/FIND '*EI}IT/3flflfl" 

1 1-2. WHAT. IS EDIT/3000? 

C15 )t 
/FIND "EDIT/3fl0fl** 

1 l-2< WHAT IS EDiT/saaa? 

•21*STRING NOT FOUND BEFORE LIMIT 
AT DEPTH 2 
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BEGIN 

4-7. BEGIN-END COMMANDS 



4-8. PURPOSE 

The BEGIN-END commands are used to block a set of EDIT/3000 commands within a WHILE command block. 

4-9. FORM 

The form of the BEGIN-END commands is 

B[EGIN1[Q] 
E[ND] 

4-10. DESCRIPTION 

A BEGIN-END pair can include any number of EDIT/3000 commands. These commands will execute re- 
peatedly until the flag becomes false or until the SET TIME = limit option is reached. 

For example, 

FINDQ FIRST 
WHILE 

FINDQ "PROGRAMMER" 
BEGIN 

CHANGE "PROGRAMMER" TO *T>GMR'* IN * 

LIST* 

END 

will find all occurrences of "PROGRAMMER" in the WORK file, change this string to "PGMR" and list the 
line where the string was found. When the end of the WORK file is encountered, EDIT/3000 sets the flag to 
false and the iterations terminate. 

If the BEGINQ form of the command is used, the soft error message (which occurs when the flag is set to false) 
will not be displayed. 

4-11. LIMITATIONS 

BEGIN-END pairs should be used only within a WHILE command block. The number of BEGIN-END pairs 
allowed in a single WHILE block is determined by the SET DEPTH = limit option in effect. The default limit 
is 10. 

The commands between a BEGIN-END pair (within a WHILE block) wiH execute as long as the flag is true 
or until the SET TIME = limit value is not exceeded. The default limit is 50 iterations. If used outside a 
WHILE block, the commands between the BEGIN-END pair will execute only once. 



{ 
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4-12. EXAMPLES 

The WORK file is shown below, 



/s '^ho"T;t £di-^,');l all 

I 1-?. WHAT I«^ EDIT/33(?<*? 
r> 

3 EDl'*/i;i'^^ IS A S'TB'^Y'^TEM OF THE HP 3^00 

H MrfLTI«»QGPAKMING EXEC'JTIUE 0°£PATING SY-^TEM 

5 (M"E/33<93) -^HAT I*: TSED TO C^S:aTE AND 

6 MAMIo'rLATE ASCII FILES. 
7 

R CHA«ACTEo,c;, -^T^ING*^ OF CHA^ACTE.^^^ 0« ENTI9E 

9 LINE*: OF CHARACTER? CAN 3E INCEPTED. DELETED^ 

[^ =!EoLACED* MODIFIED* SEA'^CHED FO'. AND OTHERWISE 

11 MANIf^JLATED 9Y '-'SING EDI T/30?l!;!l COMMANDS. 

\P. 

13 1'^. EDIT/rjg^a FEATnt^E"? 

1 4 

1 "i WITH EDIT/3C^^y IT IS OQCPIBLE TO 

IS 

I? CEATE AND BMILD A NEW FILE (CALLED A WO"K FILE) 

la 3Y EMTE^.ING COMMANDS AND LINES OF TEy.T F»OM THE 

!9 STANDARD INprjT DEVICE OP FPOK A SPECIAL DI?C FILE 

o^ CALLED THE HOLD FILE. 

2\ 

•>.?. SAVE THE WO"K FILE INTO A «E?MANENT FILE CALLED 

9.3 THE TEXT FILE. 

?4 

55 CALL THE TEXT FILE HACK INTO THE UOTK FILE FO" 

36 rnPTHE*^ ADDITION*; aND/OP. EDITING. 

?7 

2^ CHANGE ALL OCC'JRENCES OF A CHARACTER STRING WITH 

■?9 ONE COMMAND. 

2^ 

T! DELETE CHA*>ACTERS AND LINES F^OM THE WORK FILE. 
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The following example shows a BEGIN-END pair nested within another BEGIN-END pair. Note that in a 
session EDIT/3000 indents after the WHILE command and after each BEGIN command. 

The first BEGIN-END pair finds "SUBSYSTEM" and changes it to "SUB-S YSTEM." The second BEGIN-END 
pair finds "FEATURES", changes it to "CAPABILITIES", and lists the entire WORK file. 

The next iteration of the command FIND "SUBSYSTEM" fails, the flag is set to false, causing the error 
message phown to be displayed, and the iterations terminate. 



/FIND'! fio«;t 

/WHILE 

/ FIND "SMBSV^TEM" 

/ 3SGIN 

/ CHANGE "S'JBSYSTEM" TO "^'^B-'^Y^'^Zy." 

/ 3EGIN 

/ riND •■FEATH^'ES" 

/ CHANGE 'TEAJn^Z'^" TO "CAPABILITIES" 

/ Llf^T ALL 

/ END 

/ END 

3 EDIT/30:i^ IS A ^UB?:Y*5TEM OF THE H? 31(?0 
£15 )f 

3 EDIT/SO^a IS A SMB-SYSTEM OF THE H-^ 303(9 

13 1'3. EDIT/3<!l'?Sl FEAirji^E^ 

<17 )♦ 

13 \-2' ZDn/3t^^2 CA^AaiLITlE?: 

I 1-2. WHAT IS EDIT/3(»0<^? 

2 

3 EDir/3<^0<9 I? A ^irS-SYSTEM OF THE H'' 3!?^(5 

a M'ILTI-3«0QPAMKING EXECUTIVE OPERATING 5YSTEK 

5 CMOE/30(5<9> THAT I? ';«ED TQ CIEATE AND 

6 yfANIovLATE A«;CI1 FILES. 
7 

9 CHAPACTE'lS^ <^T"1NG5 OF CHAPACTEo?. On ENTIRE 

9 LI^ES OF CHAPACTEPS CAN BE lEJSE^TED/ DELETED^ 

13 ".EPLACED^ MODIFIED^ SEARCHED FOP. AND 0THE1?UI<:E 

II MANI-3TTLATED 3Y MSING EDIT/3003 CQMMANDC. 

12 

13 1-?.. EDIT/3f1'51 CAOABILITIES 

I 4 

15 WITH EDIT/3313^ IT IS ^OFSIBLE TO 

16 

17 CREATE AND 3'HLD A NEV FILE (CALLED A UO-^K FILE> 

18 BY ENTERING COMMANDS AND LINE!^ OF TEXT F"0« the 

19 <;TANDAod INCMT DEVICE OP F«0M A "^^ECIAL DI?C FILE 
f>0 CALLED THE HOLD FILE. 

?1 

?2 -^AVE THE WOPK FILE INTO A oE^MANENT FILE CALLED 

?3 THE TEXT FILE 

54 

55 CALL THE TEXT FILE BACK INTO THE U'OTK FILE FO^ 

H6 FMRTHE" ADDITIONS AMD/OP EDITING. 

^7 

25 CHANGE ALL OCCirqENCE'^ OF A CHA^ACTE" f^r^ING VI "^H 

?<> ONE COMMAND. 

33 

31 DELETE CHA«»ACTE"r; AND LINE^ F^^OM VAZ 'JQ«K FILE:. 
«21*<:ToiNr3 M^j-r FO'fND BEFORE LI?iIT 
AT DEOTH 2 



< 
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The next example finds the string "EDIT/3000" and changes it to "HP 3000 TEXT EDITOR". The second 
BEGIN-END pair finds 'TEATURES" and changes it to "CAPABILITIES". So that EDIT/3000 can locate 
additional "EDIT/3000" strings (between the first "EDIT/3000" and "FEATURES"), the FINDQ FIRST 
command sets the pointer back to the first line in the WORK file. 

EDIT/3000 then locates "EDIT/3000" in lines 3, 11, 13, and 15, and changes all occurrences to "HP 3000 TEXT 
EDITOR". 

When the condition specified in the first FIND command fails, the iterations terminate and the error message 
is displayed. 



/FINDQ FIRST 

/WHILE 

/ fINDQ -E0IT/3flfl9" 

/ BC6IN 

/ CHANGE "EDIT/3000" TO "HP 3000 TEXT EDITOR" 

/ SEGIN 

/ FIUO "FEATURES'' 

/ CHANGE **FSATURES" TO "CAPABILITIES" 

/ FINDQ FIRST 

/ END 

/ END 

1 1-2. WHAT IS HP 3000 TEXT EDITOR? 
13 1-2. EDIT/3fl00 FEATURES 

(17 )T 
13 1-2. EDIT/3000 CAPABILITIES 
3 HP 3030 TEXT EDITOR IS A SUBSYSTEM OF THE HP 3000 
*2l*STRINa NOT FOUND BEFORE LIMIT 
AT Q5PTH 4 

..11 MANIPULATED BY USING HP 3000 TEXT EDITOR COMMANDS 
*21*STR1NG NOT FOUND BEFORE LIMIT 
AT DEPTH 4 . 

,13 1-2. HP 3000 TEXT EDITOR CAPABILITIES 
•21*STRING NOT FOUND BEFORE LIMIT 
AT QEPTH 4 

.15 WITH HP 3000 TEXT EDITOR^ IT IS POSSIBLE TO 
*21*STRING NOT FOUND BEFORE LIMIT 
AT .DEPTH 4 

«2I*STRING NOT FOUND BEFORE LIMIT 
AT DEPTH 2 



4-11 



NOT 

4-13. NOT COMMAND 

4-14. PURPOSE 

The NOT command reverses the flag setting after the command immediately following the NOT command is 
executed. 

4-15. FORM 

The form of the NOT command is 
N[OT] 

4-16. DESCRIPTION 

The NOT command reverses the flag setting after the command following it is executed. \ 

For example, 

FINDQ FIRST 
WHILE 

FIND 'TROGRAMMER"(+10) 
BEGIN 
NOT 

FINDQ "PROBLEMS"/*(+10) 
LIST * 
END 

lists a line only if the string "PROBLEMS'* is not found within 10 character positions after the string 
"PROGRAMMER". In other words, the NOT command reverses the flag to false after the command FINDQ 
*TROBLEMS"/(+10), causing the LIST * command to be skipped. The entire WHILE block, however, repeats 
until the command FIND "PROGRAMMER" (+10) (ihe first flag) fails or until the SET TIME = limit value in 
effect is reached. 

4-17. LIMITATIONS 

The NOT command affects only the command immediately following it and can be used only in a WHILE 
block. 
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4^18. EXAMPLES 

The WORK file is shown below. 



/a <;hO"T;T EDt^'3;L ALL 

o 

-3 EDlT/l^'i^ 19 A <;"3SYSTEM OF THE HP 3Pi00 

H M'rLTl"r»OC;PAKMING EXECUTIVE OOEo.ATlNG <;V<iTEM 

«; (M"£/3333) THAT I <= '?SED TO CREATE AND 

5 KAM1°'?LATE ASCI I FrLE">. 

7 

« CHA»ACTE'5«;/ <;T^ING': OF CHA^ACTE'^S* 0" ENTI?E 

9 L1NE9 OF CHARACTER? CAN BE INFE^TEDj DELETED^ 

\?i ^EOLACED/ MODIFIED/ SEA'^CHED FO"* AND QTHEnUISE 

II MANI°'JLA-^ED BY '.'f^ING EDIT/13^^ COMMANDS^ 

If? 

n 1-^. EDIT/IOOa FEATi'^E*^ 

14 

IS VITH EDIT/3P'^1l* IT IS «0<^=:i3LE TO 

1 6 

17 CREATE AND B'HLD A NEW FILS (CALLED A VO^K FILEJ 

If? 3Y EN^E"tNO COMMANDS AND LINES OF TEXT FROM THE 

19 ?TANDA^D INPTJT DEVICE 0* F=OM A ^^eCIAL DI^C FILE 

?(^ CALLSD THE HOLD FILE. 

?1 

■>.2 9A';E THE WO'*^ FILE INTO A "EPMANENT FILE CALLED 

^3 *HE TEXT FILE. 

g«5 CALL THE TEYT FILE BACK INTO THE UOTK FILE FO* 

■56 F'IPTHEP ADDITION^; AND/0« EDITING. 

57 

2<3 CHAMGE ALL OCCURENCES OF A CHAT^ACTER STRING VlTH 

^9 ONE COMMAND. 

3 1 DELE'I'E CHA^ACTE"? AND LINES FOQK THE WOriK FILE. 
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In the following example, EDIT/3000 finds the string "EDIT/3000" in line 1, lists the line, then searches 
forward 20 character positions from the first character following the string (+9). The string "HP 3000" is not 
found within this limit, the error message 

*21* STRING NOT FOUND BEFORE LIMIT AT DEPTH 4 

is displayed, and EDIT/3000 executes the LIST * command, displaying the line again. 

The next occurrence of "EDIT/3000" does have the string "HP 3000" following it within 20 character positions. 
EDIT/3000 skips the LIST * command and the line is not listed. 

The iterations continue until the FIND "EDIT/3000"(-l-9) command fails and the flag is set to false. 



/WHILI 

/ riMD ■'^DlT/Ti?in?l"C+9) 

/ T^EGIH 

/ NOT 

/ FIND" "H^" ')'Pi7i^"/*(*'Z^) 

/ Lir:? * 

/ END 

I 1-2. 'r^AT i?^ e:dit/3:^?'^? 

*5I*CT".1MG NOT FO'IMD =1EF0PE LIMIT 
AT DE'=>TH U 

1 I-?. VrHAT l'^ £DIT/I5"^fl? 

:\ EDIT/T'I'? 11=: A ^Jf.'^^CYCT^M OF THE H^ 1'^'^'^ 

(\[ ) t 
11 MANI-^"LATED 3Y 'r-^nJG EDIT/T^!^'? COMMAMDS- 

C32 ) f 
♦ O] *c^xoitj[3 >;o-p FOfJND 9EF09E LIMIT 
AT D=:^TH it 

11 MANIDifLATED *5Y n^lUG ZOlT/3'^^'^ COMMAND?. 

13 ]-?. =:DIT/33'1'^ F£AT'r*^E? 

C J7 ) T 
*S1«ST^1N(] NOT FOUND 3EF0"E LINI"^ 
AT DE7TK it 

n I-?. EDIT/I'lC!^ FEATT?ES 

IS UITH EDIT/3'?0C5^ IT I-^ P0?<513LE TO 

(15 >T 
*^1*'=T9ING NOT FOTND BEFORE LIMIT 
AT DEPTH i* 

15 WITH E0IT/I3f)<?, IT 1= •=»0<;?IDLE TO 

*2I*?T^ING NOT FOUND 3EF0PE LIMIT 
AT DEPTH o 



i 
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4-19. OR COMMAND 

420. PURPOSE 

The OR command sets the flag true if the flag is false. If the flag is true, both the OR command and the 
command immediately following it are skipped. 

4-21. FORM 

The form of the OR command is 
0[R1 

4-22. DESCRIPTION 

In the following example I 

FINDQ FIRST 
WHILE 

FIND "EDIT/3000"(+9) 
BEGIN 

FIND "HP 3000"/*(+20) 

OR 

BEGIN 

CHANGE "HP3000" TO "HP 3000" 
END 
END 

the command FIND *'EDIT/3000" (+9) finds the string "EDIT/3000". Next, the BEGIN and FIND "HP 
3000"/*(+20) commands locate the string "HP 3000" if it is within 20 character positions of the end of the first 
string. If the string "HP 3000" is found, the flag is true and the OR command and the next BEGIN-END pair 
are skipped. (If the command immediately following an OR command is a BEGIN command to start a series of 
commands within a BEGIN-END pair, the entire BEGIN-END block (including any other BEGIN-END blocks 
it may contain is skipped.) 

If the flag is false, the OR command sets it to true and the BEGIN-END block is executed, changing "HP3000" 
to "HP 3000". 

4-23. LIMITATIONS 

The OR command should be used only with a WHILE block. 
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4-24. EXAMPLES 

The WORK file is shown below. 



/% '^ho."t;t editt;l all 

1 I -'5. VHAT I<t EDIT/ 
? 

3 EDIT/33'ig I^ A g'T9<;v.'>T£M OF THE HP 3000 

4 M';LTl"«OaPAMMlNG EXEC'JTIVE QCEPATING SY^^TEM 
■; CM^E/3f»!??)) -^HAT I? 'r5£D TO CREATE AND 

6 MAN1="!LATE A.'^CII FILE*^. 

7 

R CHA^ACTEq<;. CT^pitJGt; oF CHAPACTE'l';* 0» ENTIRE 

9 LU:£<^ OF CHA^ACTE^*; CAN BE INFECTED* DELETED^ 

10 oE^LACED. MODIFIED, SEARCHED FO", AND 0THE".WI5E 

11 MANIPULATED BY '.'?ING EDIT/333f? COMMANDS. 
\7. 

13 1-^. EDIT/3g00 FEATfrTE<: 

I 4 

15 VITK EDir/3i^i^^v. IT IS °0=:=:I?3LE TO 
16 

17 CREATE AND B'TILD A NEW FILE (CALLED A UOoK FILE) 

18 3Y ENTERING COMMAND*; AND LINES OF TEXT FOOK i-HE 

19 STANDARD INPUT DEVICE OP F'.OM A SPECIAL DISC FILE 
^0 CALLED THE HOLD FILE. 

21 

'>.'?. f^AVE THE WOOK FILE INTO A ^ZViViP^H^^'X FILE CALLED 

?5 THE TEXT FILE. 

24 

2-5 CALL THE TEXT FILE SACK INTO THE UO?K FILE FC? 

36 FMOTHE° ADDITION*: AND/OP EDITING, 

27 

25 CHANGE ALL OCCURENCES OF A CHAPACTER STRING WITH 

29 ONE COMMAND. 

3(^ 

II DELETE CHA^ACTEPS AND LINES FPOK THE WORK FILE. 
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The following example illustrates the OR command usage. 

The first FIND command after the WHILE finds the string "EDIT/3000" and positions the pointer one 
character beyond the last character in the string. 

If the second FIND command fails, the flag is set to false. The OR command sets the flag to true, the command 
LIST * is executed and the line is displayed. If the second FIND command executes ("HP 3000" is found within 
20 character positions), the flag is true and the OR command and the command following it (LIST *) are 
skipped. The line is not displayed in this case. 

The iterations continue until the first FIND command fails and EDIT/3000 sets its flag to false. 



/FIMD1 Fl^^r 

/'.■-'MILE 

/ FIWD "E:dIT/3^^3"<+9) 

/ BEGIN 

/ FIND "KC 3fl(?^'V*C+2^) 

/ 0" 

/ LI'?? ♦ 

/ END 

I \-2. 'WAT 1? EDlT/30ffl7 

• ai + '^TPlNS MOT FO'TND BEFORE LIMIT 
AT DEf^TH 3 

I ]-9, '/HAT I?; EDIT/30aa? 

3 EDlT/3'503 IS A SUBSYSTEM OF THE H° 33(50 

< ! I 3 t 
3 EDIT/3^E1C1 IS A SUB.'rYSTEM OF THE HP 33^3 

<33 )t 
II MANIPULATED 3Y HSING EDlT/3r?0(! COMMANDS- 

(33 ) » 
+ 21**:T9ING NOT FO'TND BEFORE LIMIT 
AT DEOTH 3 

11 MANI"TJLATED BY r.'SING EDlT/3'5'?'^ COMMANDS- 

13 1-2. EDIT/3!?^'? FEAT'JriE? 

C17 )r 

♦ 21*.';t?ING NOT FOTNO nEFOr»E LIMIT 
AT DEPTH 3 

13 1-2. ED1T/3^'3P) FEATURES 

IS UITH EDIT/3PI0'5j it is oQ=^SI3LE TO 
CIS )« 

*2l*5T^lNG NOT F07ND 3EF0HE LIMIT 

AT DEPTH 3 

15 VITH EDIT/333'^* IT IS POf^SIBLE TO 

*21*STPING NOT FO'JND 3EF01E LIMIT 

AT DEOTH ? 



{ 



4-18 



OR 



4-19 



YES 



4-25. YES COMMAND 

4-26. PURPOSE 

The YES command sets the flag true if it is false. 

4-27. FORM 

The form of the YES command is 
Y[ES] 

4-28. DESCRIPTION 

The YES command has no effect other than setting the flag true if it is false. (For example, the YES command 
does not cause the next command to be skipped.) In the following example, ^ 

WHILE 

FIND "PROGRAMMING" ( + 10) 
BEGIN 

FIND "PROBLEMS"/* (+10) 

CHANGE "PROBLEMS'* TO "PROB" IN * 

YES 

LIST* 

END 

EDIT/3000 lists a line if the first FIND command (FIND "PROGRAMMING"! + 10)) succeeds. The line is either 
one that contains "PROGRAMMING" (as found by the first FIND command) and "PROBLEMS" within 10 
character positions of "PROGRAMMING", or one that contains "PROGRAMMING" and does not contain 
"PROBLEMS" within 10 character positions of "PROGRAMMING" (the second FIND command failed). In 
either case, the line is listed. If the second FIND command fails, setting its flag to false, the YES command sets 
it back to true and the LIST * command is executed. Thus, no commands are skipped. The entire WHILE block 
repeats until the first FIND command fails or until the SET TIME = limit value in effect is reached. 

4-29. LIMITATIONS 

The YES command is not limited to a WHILE block, and can be used to reset soft errors in a Batch job. 
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4-30- EXAMPLES 

The WORK file is shown below. 



/r <^HD"TJT F.Dl-^lJL ALL 

1 1-?. WHAT I"? ZDlT/32^'^? 

3 EDIT/37)q<? 1^ A ^'TSf^ysfZM OF THE HP ?f90a 

it MIILTI"»0GPAKM1NG EXEC\'T1VE 0''E'»ATING <?YSTEM 

S tMr>E/3<»39)) ■'HAT I <= ir<^ED TO C'=;S;ATE AND 

f} MAM1'"Lat£ ASCII FILE*;. 

7 

? CHA^ACTE«.<=:* '^T^ING'^ OF CHA^ACTE^S* 0" ENTIRE 

9. LINE*? OF CHA°ACtEP? CAN 3E INCZ^RTED^ DELETED, 

l<?t ^EnLACED> MODIFIED. SEARCHED FQo, AND OTHEPWISE 

II MANIPULATED 3Y '.'?ING EDIT/?3^C? COMMANDS. 

13 

13 1-i^. EDIT/T3<?0 FEAT'f^E'^ 

tS WITH EDlT/3f»'^^> IT I «? »0<;^I3LE TO 

1 6 

17 CREATE AND D'MLD A NEW FILE (CALLED A WO^K FILE) 

IP 9'"' ENTERING COHMAND"^ AND LIi'JES OF TEXT F^QM THE 

19 STANDARD INPMT DEVICE 0" F-^.OM A SPECIAL Dl?C FILE 

?C! CALLED THE HOLD FILE. 

21 

^3 SA'/E THE VOnK FILE INTO A OEPMAMEMT FILE CALLED 

^3 ■'HE TEXT FILE. 

?.H 

25 CALL THE TEXT FILE TifKCK tNTO THE UC^K FILE FO? 

r?6 y-M^THE^ ADDITION*; AND/OR EDITING- 

57 

2*? CHANGE ALL OCC^;«EWCE.S QF A CHA^ACTE?! STRING UITH 

'i9 ONE COMMAND. 

Tl DELE-^E CHAnACT£°5 AND LINES T^OK THE WOPK FILE. 
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The first FIND command in the next example finds the string "EDIT/3000" in line 1. The second FIND 
command fails, EDIT/3000 sets its flag to false and displays an error message. The YES command sets the flag 
to true and the LIST * command executes, displaying the line. 

If the second FIND command is successful, the LIST * command also is executed. Thus, the YES command 
allows the command following it to be executed by setting a false flag true. 

The iterations continue until the first FIND command fails, setting its flag to false. 



/FZND^ FI7?TT 

/'■•'KILE 

/ FIND "EDIT/3'10'^"C + 9) 

/ 3EGIN 

/ FIND "HP 3Ci^:i'V*C+3PJ) 

/ CHANGE "HT' 3<^^<5" TO "HEyLETT-»ACKA^D S^f!?!" IN * 

/ YES 

/ LIST * 

/ END 

1 1-2. '^HAT IS EDIT/3?'13? 

<24 ) r 
*21*?TRING NOT FOUND 3EF0RE LIMIT 
AT DEPTH 3 

1 1-^. UHAT [•; EDIT/3fl00? 

3 EDlT/3(300 IS A SUBSYSTEM OF THE HP 300(1 

til -if 
3 EDrT/300a I.«; a subsystem of the H^ 3^00 

<33 ) t 
3 EDrT/3300 IS A SUBSYSTEM OF THE HEWLETT-OACKAOD 31^i90 

3 EDIT/3fla0 IS A SUBSYSTEM OF THE HEWLETT-PACKARD 3303 

II MANIPULATED BY USIWG EDIT/3000 COMMAWD^. 

C32 )t 
*2I*STBING NOT FOUND SEFO^E LIMIT 
AT DEPTH 3 

II MANIPULATED 3Y USING EDIT/3900 COMMANDS. 

13 1-S, EDIT/3000 FEATURES 

<I7 )f 
*2l*STT^ING NOT FOUND BEFORE LIMIT 
AT DEPTH 3 

13 1-2. EDIT/3033 FEATUr>ES 

15 WITH £DtT/3000j IT IS POSSIBLE TO 

<1 5 )' 
*21*STPING NOT FOUND BEFORE LIMIT 
AT DEPTH 3 

15 VITH EDIT/3000* IT IS POSSIBLE TO 

*2l*STPING NOT FOUND BEFORE LIMIT 
AT DEPTH 2 
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4-31 . PROCEDURE COMMAND 



4-32, PURPOSE 

The PROCEDURE command calls and executes a procedure written previously in SPL/3000 (Systems Pro- 
gramming Language for the HP 3000 Computer System), FORTRAN/3000, or any other language which 
accepts parameters as specified and which produces a logical result and is stored in an MPE/3000 Segmented 
Library (SL). See the MPE Segmenter Subsystem Reference Manual for a description of SLs. 

4-33. FORM 

The form of the PROCEDURE command is 



P[ROCEDURE] 
where 



pname 



G 

,P 

S 



l,rangelist^ 



pname 

is the name (or entry point) assigned to the procedure in the SL. 

G, P, S 

specify which SL library is to be searched for the procedure. G specifies the group library; P the public 
library; and S the system library. See the MPE Segmenter Subsystem Reference Manual for a 
discussion of the group, public, and system libraries. Default for the SL library is S. 

rangelist 

is the same as that described fox basic EDIT/3000 commands in Section III except that a procedure 
can affect only lines of the WORK file, even if rangelist includes & position or character string. The 
default for the rangelist is the line at which the cursor is currently positioned in the WORK file. 

4-34. DESCRIPTION 

The PROCEDURE command with no parameters specified will call the last loaded procedure, with the line 
at which the cursor is currently positioned. 

For EDIT/3000 to be able to call a procedure, certain conventions must be followed when the procedure is 
written. The procedure must be logical. The order and type of the parameters used in the procedure are as 
shown in the following SPL/3000 and FORTRAN/3000 examples; 

A sample header for an SPL/3000 logical procedure: 

LOGICAL PROCEDURE SAMPLE (STRING, LENGTH, NUMBER, SPACE); 
BYTE ARRAY STRING, NUMBER; 
INTEGER LENGTH; 
ARRAY SPACE; 
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A sample header for a FORTRAN/3000 logical function: 



LOGICAL FUNCTION SAMPLE (STRING. LENGTH, NUMBER, SPACE) 
INTEGER LENGTH, SPACE(20) 
CHARACTER STRING*80, NUMBER*8 

The procedure must be written to conform to the following requirements: 

1. Be a type logical procedure (if written in SPL/3000) or a type logical function (if written in 
FORTRAN/3000). 

2. Include these four parameters, in the order shown: 
STRING, LENGTH, NUMBER, SPACE 

where 

STRING 

is a byte array (in SPL/3000) or a character array (in FORTRAN/3000) that contains one line of the 
WORK file each time EDIT/3000 calls the procedure. (The line will be within the range specified in 
rangelist. Maximum size allowed is 255 bytes.) 

LENGTH 

is an integer value specifying the length of the current line being passed by STRING. 

NUMBER 

is a byte array (in SPL/3000) or a character array (in FORTRAN/3000) that contains the line 

number of the current line being passed by string. Maximum size is 8 bytes. 

SPACE 

is a scratch array of 20 words maintained by EDIT/3000 for the procedure's use. 

SPACE is initialized to null characters (binary zeros) when EDIT/3000 is first entered; there- 
after, the SPACE array is not initialized for each call of the specified procedure as it iterates 
through the rangelist of the PROCEDURE command. Consequently, this array may be used to 
'*remember" information in successive calls to the procedure within the rangelist specified. 

These four parameters must be declared by the procedure whether they are used or not, 

3. The procedure must correct the parameter LENGTH if it shortens or lengthens the line in STRING and 
pass this value back to EDIT/3000. If LENGTH is negative, the line is deleted. 

4. The procedure must return logical TRUE for each successful execution; EDIT/3000 then calls the 
procedure again for the next line in rangelist 

5. The procedure must return logical FALSE for an unsuccessful operation. EDIT/3000 then displays a 
"soft" error message and discontinues further calls to the procedure. Any lines in rangelist not yet 
processed by the procedure remain as they were before the PROCEDURE command was used. 

4-35. Limitations. A PROCEDURE command can call only logical procedures written in a language 
which accepts parameters as specified and which produces a logical result. 

The procedure must reside in a segmented library. 

In addition to the array SPACE, the procedure called by the PROCEDURE command may access the array 
USERSPACE, as described for the User Interface Procedures (see paragraph 6-1), USERSPACE is a 10 word 
array which contains the PROCEDURE command's input and output MPE file numbers in the first two 
words. In order to access this array, the procedure must use the array SPACE indexed from -10 to -1. 
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4-36. EXAMPLES 

A FORTRAN/3000 logical function (stored on disc under the name EDITPROC) to find lines containing ASCII 
blanks is shown below. The function is compiled using the MPE/3000 iFORTRAN command. 

See the MPE Commands Reference Manual for a discussion of the :FORTRAN command. 



<^^^0f<^\^(^(^ SCQNT^OL VSLINIT. CEGMENT = SZ31 



55!1C)P)2f5'^!? 




LOGICAL FUNC^IOfJ FlNDBLANKLl ME( <:'^'» ING* LEWGTH. NI'MBEP 


a^^^^pi-^ii 




*^OACE> 


^^'^Qii^d^ 




CHA"ACTE^*?55 STT IN3*MESSA3E*23 * NI;K3E"*S 


?r>i>?if^^f^r^<^ 




INTEGE'^ <;PACE('?'*),LME«<^A3E(1 A) 


:^ ?!<!?=» 6 a PI'?) 




E-^ 'I I VALENCE (LM£«?;aGE,ME«?:aGE) 


'50;i'i73^'') 




rrCLENGTH.ET.'^JGOTO 9^ 


^(^0(?8'^a!5 




DO I^ 1 = 1 .r LENGTH 


^fJ^tJS'^fSfl 




IF<<^T"INGCI :1 l.NE." "JGO-^O 3-^ 


^^ffi\Ci^'!^Vi 


1(5 


CONTINtJE 


ej^ffll iqg'M 


?:i 


HE':?AGE«" LINE M'lMBE" 3LA^JK" 


^<» -512^^(9 




HE5SAGEC 1 4 :f? 5=N'rH.f3E'' 


9(5^13<?t!0 




CALL ^"]NTfLME<:^AGE.S-^?^S*\5)\) 


00«11 A0(50 




FINDBLANKLINE=.FAL?E. 


^^e^Ni^^f^-i 




DETIJPN 


^f^Vi\6Pi'^^ 


-J? 


FINDBLANKLINE- .-!•""£. 


f?^0!7a'9(» 




°ETMPN 


00i3)I80'93 




END 



I 



«^^^ KQ EP^O?S.- NO '/A'^NINa'^J t^'?OG°AK T'NIT COMPILED * + ** 
COI^^ILATIQN TIME <!.95?) ^lECONDS £LA'5<^£D TIME 37.375 '^ECQND'^ 
TO^AL COMPILATION TIME «?::?B:3? 
TOTAL ELAi^^ED TIME ^i^li^l 

END OF COK^ILE 



Once the function has been compiled into a User Subprogram Library (USL, see the MPE Segmenter 
Subsystem Reference Manual), the Segmenter subsystem is accessed with the MPE/3000 :SEGMENTER 
command as shown below. 

The Segmenter command -BUILDSL is used to create an SL file named SL, with 300 records maximum and 
one disc extent. 

The -USL command is used to identify the USL file ($OLDPASS) which contains the function procedure to be 
added to the SL file. 

The segment name containing the procedure (SEGl — see the first statement of the FORTRAN/3000 function) 
is added to the SL file using the -ADDSL command. 

The -LISTSL command shows the segment added and the name of entry points in this segment 
(FINDBLANKLINE is the only entry point — or procedure name — in this segment). Note that the SL file 
name contains PUB, meaning that the public account library will have to be searched for this procedure. The 
-EXIT command terminates Segmenter operation. 
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<^E5^'ENTE» '^'^H^Y'^TEM CC.'=)) 
-■^^U SOLDnA«« 

-add<;l ?EG1 

SL FILE <;L.OTig.r;00DVIN 

^EaMENT 71 «EG1 LENGTH I'i'^ 



riND9LANKLINE 


CHECK 
3 


CAL 
C 


1 


AD? 


EXTERNALS 
3LANKFILL' 
CCH^Lo3' 
DO I NT 


CHECK 
3 


CTT 

3 
2 


5^ EG 

7 
7 




1 

';«;ed 

-EXIT 


16a? 






AVAILABLE 


iND OF <^'f3Fy?TEH 











1 1 1'??'? 



Once EDIT/3000 is accessed using the MPE/3000 :EDITOR command, the TEXT file is copied into the WORK 
file with the T[EXT] EDITS command and listed with the L[IST] ALL command. 



/s !>ho"t;t edi-^sxl all 

1 1-9. WHAT I*^ EDlT/33t!>f»? 
2 

3 EDIT/3tJ0g 15 A SUBSYSTEM OF THE HP 3000 

4 «TJLTI0«QGRAKMING EXECUTIVE OPERATING ?5YSTEM 
•5 (MOE/30^3) THAT I? USED TO C^^EATE AND 

6 MANIo'rLATE ASCII FILE*?. 
7 

8 CHA^ACTEoq, "^T^ING? OF CHARACTERS. OP ENTI9E 

9 LINE': OF CHARACTERS CAN BE IN5E^TED> DELETED^ 

10 REPLACED, MODIFIED* SEA'ICHED FOP, AND OTHERWISE 

11 MANIPULATED BY USIMG EDlT/30?!0 COMMANDS* 
12 

13 1-3. EDIT/3300 FEATTREf^ 

] it 

1? 'JITH EDIT/30!53, IT IS ^OSSJBLE TO 

16 

17 CREATE AND BMILD A NEW FILE <CALLED A VO^K FILE) 

19 9Y ENTERING COMMANDS AND LINES OF TEXT F^OM THE 

19 STANDA*^D INP'JT DEVICE OR F^OM A SPECIAL DISC FILE 

5{? CALLED THE HOLD FILE* 

2! 

P.2 ?AVE THE WOPK FILE INTO A PERMANENT FILE CALLED 

33 THE TEXT FILE. 

2ii 

25 CALL THE TEXT FILE BACK INTO THE UQ^K FILE FOR 

96 FM?THE«> ADDITIONS AND/O^ EDITING* 

37 

98 CHANGE ALL OCCURENCES OF A CHARACTER STRING UITH 

09 ONE COMMAND. 

3(9 

31 DELETE CHARACTERS AND LINES F^OM THE WORK FILE. 
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The WHILE block uses the procedure FINDBLANKLINE to locate and delete blank lines as follows: 

1. The FINDQ * command locates the current line in the WORK file. 

2. The command PROCEDURE FINDBLANKLINE,P,* calls the procedure FINDBLANKLINE from the 
public library (P) to determine if the current line is blank. 

3. If the current line is blank, the procedure returns logical FALSE and EDIT/3000 displays the message 

n9* FALSE RETURN FROM EDITOR PROCEDURE AT DEPTH 3 

The OR command sets the flag to true and the DELETEQ * command deletes the current line from the 
WORK file. The message 

NUMBER OF LINES DELETED = 1 

is displayed. 

4. If the current line is not blank, the procedure returns logical TRUE, the OR command and the command 
following it (DELETEQ *) are skipped, and the line is not deleted. g 

5. Once the last line of the WORK file is reached, the FINDQ * command continues to locate this line until 
the number of iterations specified in the SET TIME = limit is reached (default limit is 50 iterations). 

6. The LIST ALL command verifies that the lines have been deleted. 
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SECTION 



An error indication is produced whenever an error occurs during EDIT/3000 operation. 

In an interactive session or batch job, EDIT/3000 normally displays the error number followed by the 
error message. For example, 

*14* INVALID LINE NUMBER 

In an interactive session, the user has the option to request a different error reporting scheme by initiating 
EDIT/3000 with the MPE command 

:RUN EDITOR.PUB.SYS; FARM = 8 

In this case, only the error number is displayed. To skip the error message, merely press RETURN. To 
request the complete error message, type any character key except RETURN. For example, 

*14*L 

INVALID LINE NUMBER 
To skip the error message, merely press RETURN. 

This option is not available in a batch job. The complete error message is displayed by EDIT/3000 on the 
standard list device. 

In case of a file system error, a tombstone and the file system error message are printed in addition to the 
EDIT/3000 message. For example: 

/T FILE1 

+-F-I-L-E I-N-F-0-R-M-A-T-I-O-N D-I-S-P-L- A- Y+ 

I ERROR NUMBER: 52 RESIDUErO | 

I BLOCK NUMBER: NUMREC: D | 

+ + 

*23*FAILURE TO OPEN TEXT FILE (52) 
NONEXISTENT PERMANENT FILE (FSERR 52) 
/ 

Three types of errors can occur: warn^ soft and hard. Warn errors do not cause an EDIT/3000 command 
function to terminate; they are solely for the user's information. Soft errors do cause the command to fail, 
although EDIT/3000 operation does not terminate. Hard errors result in termination of EDIT/3000 operation. 

Table 5-1 contains a list of all error messages that can occur during EDIT/3000 operation. The first column 
contains the error number. The type of error (warn, soft or hard) is shown in the second column. The error 
message is contained in the third column and the probable cause is shown in the fourth column. The last 
column contains corrective action information which will help you in initiating recovery procedures. 

Each error that relates to an MPE/3000 file intrinsic is preceded by a File Information Display. See the MPE 
Intrinsics Reference Manual for descriptions of these displays. These types of errors contain the MPE/3000 
errorcode in parentheses after the error message. 
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Table 5-1 


. Error Messages 




ERROR 
NO. 


TYPE 


MESSAGE 


CAUSE 


CORRECTIVE 
ACTION 


1 


HARD 


INVALID COMMAND NAME 


Command name incorrect. 


Re-enter the command. 


2 


HARD 


INVALID OPTION 


Command parameter incorrect. 


Re-enter the command. 


3 


HARD 


MISSING PARAMETER 


Command parameter needed. 


Re-enter the command. 


4 


. HARD 


FILE NOT ACCESSIBLE (errorcode) 


File requested is not accessible 
due to the errorcode reported. 


Check the errorcode in the MPE 
Intrinsics Reference Manual 


5 


HARD 


FILE NOT TYPE ASCII 


File requested is a binary file. 


Terminate EDIT/3000 operation, 
then run a program such as the 
HP 3000 File Copier to create an 
ASCII version of the file. 


6 


HARD 


CHARACTER ADJUSTMENT RUNS 
OFF OF FILE 


A character string is too long. 


Verity LEFT. RIGHT. LENGTH 
options in effect and change ac- 
cordingly, or change the string. 


7 


HARD 


READ ERROR ON TEXT RLE (errorcode) 


File cannot be read due to the 
errorcode shown. 


Check the errorcode as shown in 
the MPE Intrinsics Reference, 
Manual and try again. If error per- 
sists, copy error-free portions of 
TEXT file with TEXT command and 
use ADD command to correct the 
portion that is not read. 


8 


SOFT 


ADJUSTMENT RUNS OFF OF FILE 


Command would move pointer off 
either end of WORK file. 


Verify FIRST and LAST options in 
effect and change accordingly or 
correct command. 


9 


HARD 


SYNTAX ERROR IN TEXT POSITION 
EXPRESSION 


A position parameter is incorrect. 


Re-enter the command. 


10 


SOFT 


ABSOLUTE COLUMN POSITION OUT OF 
RANGE 


A column parameter is outside 
the LEFT, RIGHT margins. 


Verify LEFT, RIGHT options in 
effect and change accordingly or 
re-enter the command. 


11 


SOFT 


POSITION NOT FOUND 


A position does not exist In the 
WORK file 


List the !ines where the position 
should be and re-enter the com- 
mand accordingly. 


12 


HARD 


OVERSIZED LINE (Ihenumber) 


The line exceeds the LEFT, RIGHT, 
or LENGTH options in effect. 


Correct the LEFT. RIGHT, or 
LENGTH options and re-enter the 
command. 


13 


HARD 


TIMEOUT ERROR 


WHILE command construct 
wrong. 


Re-enter the command. 


14 


HARD 


INVALID LINE NUMBER 


A linenumber parameter is wrong 
under the SET FORMAT option in 
effect or contains an incorrect 
character. 


Correct the parameter or change 
the SET FORMAT option. Text the 
file in UNNUMBERED, examine 
and correct; then KEEP. 
UNNUMBERED. 


15 


SOFT 


COMMAND WILL NOT REPLACE OR 
INTERLEAVE LINES 


A linenumber parameter in an 
ADD. GATHER, or JOIN command 
references a line that already 
exists. 


List the line number, then re-enter 
the command with correct line- 
number parameter. 


16 


WARN 


WARNING - LINE linenumber EXTENDS 
PAST colnum 


A line extends beyond the RIGHT 
margin option in effect. 


Change the RIGHT or LENGTH 
options, or correct the command, 
or modify the line 
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ERROR 

NO. 


TYPE 


MESSAGE 


CAUSE 


CORRECTIVE 
ACTION 


17 


HARD 


UNMATCHED END COMMAND 


A BEGIN-END pair Is incorrect 


Correct the BEGIN-END com- 
mand pairs. 


18 


HARD 


INSUFFICIENT LINE NUMBERS 
OR WORK SPACE - COMMAND 
NOT PERFORMED 


Not enough line numbers are avail- 
able in the WORK file for a 
GATHER or JOIN where a TO 
linenumher parameter has been 
specified. 


Renumber the WORK file lines to 
accommodate the command, or 
re-enter the command with a smal- 
ler increment. 


19 


SOFT 


FAL3E RETURN FROM EDITOR 
PROCEDURE 


A procedure has returned a value 
of false. 


See PROCEDURE command in 
Section IV. 


20 


HARD 


UNDELIMITED STRING 


Incorrect delimiters enclosing a 
string. 


Re-enter the command. 


21 


SOf=T 


STRING NOT FOUND BEFORE LIMIT 


A string was not found within the 
range specified or does not exist 
in the WORK file. 


Use the FIND FIRST command, 
then try again. Verify that string is 
correct. 


22 


SOFT 


LINE DOES NOT EXIST 


The line does not exist in the 
WORK file. 


List the line before and the line after 
the line, with NO TEXT ADD 
Hnenumber, if necessary. 


23 


HARD 


FAILURE TO OPEN TEXT FILE 
(errorcode) 


File requested with a TEXT com 
mand was not opened due to the 
errorcode reported. 


Check the error code in the MPE 
Intrinsics Reference Manual. 


24 


HARD 


RECORD SIZE TOO LARGE 
{length) 


The length of the file is greater 
than 255 bytes. 


None within EDIT/3000. 


25 


HARD 


SCRATCH FILE OPEN FAILURE 
(errorcode) 


Work file could not be opened due 
to errorcode. 


See the MPE Intrinsics Reference 
Manual. 


26 


HARD 


GETDSEG FAILURE tBason (see be/owj 

SEGMENT OF SAME IDENTITY 

ALREADY EXISTS 

ILLEGAL LENGTH SPECIFIED 

TOO MANY DATA SEGMENTS 

INSUFFICIENT STORAGE FOR SIZE 


Stated in the reason appended to 
message. 


See the MPE Commands Refer- 
ence Manua!. System reconfig- 
uration may be necessary. Extra 
data segments are necessary 
only when texting in numbered 
files. Text in the file UNNUM- 
BERED. 


27 


SOFT 


AN E.O.D. RECEIVED BEFORE TEXT 
FILE END 


An :EOD record was encountered 
before the physical end-of-fiie 
occured. 


None - warning only. 


28 


HARD 


SCRATCH FILE READ ERROR 
(errorcode) 


WORK fife not read due to error- 
code reported. 


See Xhe MPE intrinsics Reference 
Manual. 


29 


HARD 


INVALID UNENUMBER ON NUMBERED 
TEXT OR JOIN FILE - RECORD (number) 


Sequence numbers incorrect for 
the requested function. 


Use following commands: 
TEXT filename. UNN or 
JOIN filename, UNN 


30 


HARD 


DMOVOUT ERROR 


Data segment management error. 


Notify the System Manager, 


31 


HARD 


SCRATCH FILE WRITE ERROR 
(errorcode) 


WORK file could not be written to 
due to errorcode. 


See the MPE Intrinsics Reference 
Manual. 


32 


HARD 


DMOVIN ERROR 


Data segment management error. 


Notify the System Manager. 


33 


HARD 


INVALID COLUMN RANGE (FIRST 
FOLLOWS SECOND) 


The range parameter is not in 
ascending order. 


Correct the range parameter of the 
command. 
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ERROR 
NO. 


TYPE 


MESSAGE 


CAUSE 


conREcnvE 

ACTION 


34 


WARN 


WARNING - HOLD RLE IS EMPTY 


HOLD file is empty. 


None - warning, only. 


35 


HARD 


FAILURE TO LOAD LIBRARY 
PROCEDURE 


The procedure requested with a 
PROCEDURE command could not 
be loaded. 


Check the SL library. See Section 
IV. PROCEDURE command. 


36 


HARD 


SCRATCH FILE IS FULL. KEEP. THEN 
TEXT AGAIN 


The WORK file has no more space 
available. 


KEEP WORK file. TEXT file back 
into WORK file. 


37 


HARD 


INVALID INTEGER 


A Imenumber parameter is incor- 
rect or is outside the range defined 
by the SET FORMAT option in 
effect. 


Correct the //>7e/itym5e/' parameter. 


38 


HARD 


INVALID RECORD-LINE PAIR 
(SUBSYSTEM PROBLEM) 


Data segment management error. 


Notify the System Manager. 


39 


HARD 


RANGE IS NULL OR FIRST POSITION 
FOLLOWS SECOND 


The range parameter is not in as- 
cending order. 


Correct the rarige parameter. 


40 


HARD 


UNDEFINED TEXT 


The WORK file is empty. 


Use an ADD. JOIN, or TEXT com^ 
mand to enter text into WORK file. 


41 


HARD 


FAILURE TO OPEN KEEP FILE 
(errorcode) 


KEEP command could not be exe- 
cuted due to errorcode reported. 


Check KEEP command. If com- 
mand OK, see MPE Commands 
Reference Manual. 


42 


HARD 


WRITE ERROR ON KEEP FILE 
(errorcode) 


File requested by KEEP command 
could not be written to due lo error- 
code reported. 


Check KEEP command. If com- 
mand OK, see the MPE Intrinsics 
Reference Manual. 


43 


HARD 


OUT OF SEQUENCE LINE NUMBER IN 
TEXT FILE (linenumber) 


Line numbers in TEXT file are 
incorrect. 


Use TEXT ^//ename, UNNUM- 
BERED command. Correct line 
numbers. KEEP ^//ename, UN- 
NUMBERED. 


44 


SOFT 


LINE NUMBER ZERO CAN NOT BE 
ACCESSED 


A command attempted to access 
line zero. 


Re-enter the command as FIND 
FIRST. 


45 


HARD 


READ ERROR ON COMMAND FILE 
(errorcode) 


Commands could not be read 
from the file requested due to the 
errorcode reported. 


Verify that file exists and is cor- 
rect. If correct, see the MPE 
Commands Reference Manual. 


46 


HARD 


COMMAND CONTINUES PAST 256 
CHARACTERS 


Command record too long. 


Re-enter the command record. 


47 


HARD 


FAILURE TO OPEN USE FILE 
(errorcode) 


USE command could not open 
USE file referenced due to error- 
code reported. 


Check that filename is correct, ff 
OK, see the MPE Intrinsics Refer- 
ence Manual. 


48 


HARD 


FAILURE TO OPEN WHILE FILE 
(errorcode) 


WHILE command could not exec- 
ute due to errorcode reported. 


Check WHILE command. If OK. 
see the MPE Intrinsics Reference 
Manual. 


49 


HARD 


WRITE ERROR ON WHILE FILE 
(errorcode) 


WHILE command could not exec- 
ute due to errorcode reported. 


Check the WHILE command ex- 
pressions. If OK, see the MPE In- 
trinsics Reference Manual. 


50 


HARD 


WHILE FILE OVERFLOW 


Too many expressions in a WHILE 
command block. 


Write the WHILE command ex- 
pressions into a USE file. 
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ERROR 
NO. 


TYPE 


MESSAGE 


CAUSE 


CORRECTIVE 
ACTION 


51 


HARD 


FAILURE TO OPEN JOIN FILE 
(errorcode) 


JOIN file could nor be opened 

due 

to errorcode reported. 


See the MPE:30Q0 Operaiing Sys- 
tem Reference Manual. 


52 


HARD 


READ ERROR ON JOIN FILE 
(errorcode) 


JOIN file could not be read due 
to errorcode reported. 


Check filename parameter, if OK. 
see the MPS Intrinsics Reference 
Manual. 


53 


HARD 


TIME-OUT ON WHILE ITERATION 


SET TIME = {imii has been ex- 
ceeded or you typed CONTROL Y. 


Correct WHtLE command or in- 
crease iterations allowed by alter- 
ing SET TIME command. 


54 


HARD 


SYNTAX ERROR IN ABSOLUTE 
COLUMN POSITION EXPRESSION 


A colnum parameter is incorrect 


Correct the parameter. 


55 


HARD 


READ ERROR ON HOLD FILE 
(errorcode) 


HOLD file could not be read due to 
errorcode reported. 


Check HOLD command, if OK. 
see the MPE Intnnsics Reference 
Manual. 


56 


HARD 


READ ERROR ON INPUT (errorcode) 


TEXT or JOIN file could not be read 
due to errorcode reported. 


Check command and filename 
parameter, if OK. see the MPE In- 
trinsics Reference Manual. 


57 


SOFT 


END OF INPUT FILE 


Phyaical er^d-of-file reached. 


None-information only. 


58 


HARD 


FAILURE TO OPEN HOLD FILE 
(errorcode) 


Hold file could not be opened due 
to errorcode reported. 


Check HOLD command, if OK, 
see the MPE Intrinsics Reference 
Manual. 


59 


HARD 


WRITE ERROR ON HOLD FILE 
(errorcode) 


HOLD file could not be writien to 
due to errorcode reported. 


Check HOLD command, if OK. 
see the MPE Intrinsics Reference 
Manual. 


60 


HARD 


FCLOSE FAILURE (errorcode) 


A file could not be closed due to 
the errorcode reported. 


Check filename parameter, if OK 
see the MPE Intrinsics Reference 
Manual. 


61 


HARD 


MAXIMUM LINE NUMBER EXCEEDED 
ON COBOL FILE - RENUMBER AND 
KEEP AGAIN 


SET COBOL IS in effect and line 
number maximum has been 
exceeded. 


Renumber WORK file and try 
again. 


62 


HARD 


UNABLE TO EDIT RLES OF THIS CODE 
TYPE (filecode) 


File cannot be edited with this file- 
code. 


See the MPE Commands Refer- 
ence Manual. 


63 


HARD 


WRITE ERROR (errorcode) ON OUTPUT 
FILE 


The listfile named could not be 
written on due to the errorcode 
reported. 


See the MPE Intrinsics Reference 
Manual. 


64 


HARD 


POSITIONING ERROR ON WHtLE FILE 
(errorcode) 


A command in a WHILE block 
could not locate a position in a file 
due to the errorcode reported. 


Check the position parameter of 
the command, if OK, see the MPE 
Intrinsics Reference Manual. 


65 


HARD 


POSITION BEYOND EOF ON WHILE FILE 


A command in a WHILE block 
tried to go to a location beyond the 
end-of-fife in the WORK file. 


Correct the WHILE block. 


66 


HARD 


FREEDSEG REQUEST DENIED 


Data segment management error. 


Notify the System Manager, 


67 


HARD 


FRENAME ERROR ON TEXT FILE 
(errorcode) 


The WORK file could not be re- 
named due to the errorcode 
reported. 


Check the filename parameter, if 
OK. see the MPE Intrinsics Refer- 
ence Manual. 
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ERROR 








CORRECnVE 


NO. 


TYPE 


MESSAGE 


CAUSE 


ACTION 


68 


HARD 


FRENAME ERROR ON KEEP FILE 


The file could not be renamed due 


Check the filename parameter, if 






(errorcode) 


to the errorcode reported. 


OK. see the MPE Intnnslcs Refer- 
ence Manual. 


69 


HARD 


UNABLE TO UNLOAD PREVIOUS 


A procedure named in a PROCE- 


Check the PROCEDURE com- 






PROCEDURE 


DURE command could not be 
loaded because the previous pro- 
cedure has not been unloaded. 


mand and any previous PROCE- 
DURE commands. See the MPE 
Commands Reference Manual. 
Notify the System Manager, 


70 


WARN 


WARNING: WORK FILE IS 


The WORK file is temporary due lo 


Check your library of files: your 






TEMPORARY reason (See below) 


re^^on specified. 


disc space may be exceeded and 






INSUFFICIENT SPACE IN 


GROUP 
ACCOUNT 




you may need to purge some files 
to make space, 






USER DOES NOT HAVE SF 










CAPABfLITY 






71 


HARD 


KEEP FILE MUST BE WITHIN 


File name used in KEEP com- 


KEEP the fi(e within the log- 






LOG-ON ACCOUNT 


mand cannot be qualified by 
an account name other than 
log-on account. 


on account. 


72 


HARD 


INVALID TAB OPTION 


Syntax of a SET command 
TABS or TABCHAR param- 
eter is incorrect: 
Tab stops must be within 
LEFT and RIGHT margins 
and must be specified in in- 
creasing order, TABS key- 
word must be followed by = 
or comma, tab list must be 
enclosed within left and right 
parentheses, number of tab 
stops cannot exceed 12, 
TABCHAR must be enclosed 
in quotes and cannot exceed 
one character. 


Check SET command and re- 
enter command with correct 
syntax. 


73 


HARD 


FREAD LABEL ERROR 


It is not possible to read the 


Re-try or use a different 






(errorcode) 


user labels from the old file 
that Is kept. This is due to 
the errorcode. 


filename with the KEEP 
command. 


74 


HARD 


FWRITE LABEL ERROR 


ft is not possible to write 


Re-try or use a different 






(errorcode) 


the user label to a new file 
that is kept. This is due to 
the errorcode. 


filename with the KEEP 
command. 


75 


SOFT 


RECORDS TOO WIDE- 


File width exceeds maximum 


KEEP the file UNIMUMBERED 






KEEP UNNUMBERED 


of 256 bytes when line num- 
bers are appended. 


or adjust SET LENGTH to 
smaller value. 



{ 
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SECTION 



VI 



6-1. USER INTERFACE PROCEDURES 

To satisfy a number of needs for customizing EDIT/3000 in specific applications, three logical procedures 
can be written. These procedures are HP32201'USERINIT, HP32201'USERADD, and HP32201 'USER- 
COMMAND. They are designed to allow you to tailor some of the externals of EDrr/3000 to your specific 
requirements. 

A user may write one, two, or all three logical procedures in SPL/3000, FORTRAN/3000, or any other 
programming language which accepts parameters as specified, produces a logical result, and is stored in an 
MPE/3000 Segmented Library (see the MPE Segment er Reference Manual for a description of segmented 
libraries). When EDIT/ 3 000 is to be customized for use by everyone on the system, these user written 
procedures should be installed in the system segmented library (SL.PUB.SYS). If, however, EDIT/3000 is 
to be customized for those users of a particular account, they should be installed in the segmented library 
of the public group of that account (SL.PUB.accownt)' Lastly, if EDIT/3000 is being customized for those 
users of an account who are logged on in a particular group, the procedures should be installed in the seg- 
mented library of the log-on group of that account (SL^roup. account). 

In ail cases, in order for EDIT/3000 to call the procedures, it must be initiated with the MPE command 

:RUN EDITOR.PUB.SYS; PARM=16 

This is the only way to activate the procedures, even if they are in the system segmented library. At run 
time, the segmented libraries are then searched for the procedures in the following order: first the SL of 
the log-on group of the log-on account, next the SL of the public group of the log-on account, and last the 
SL of the public group of the system account. 

Note that a simple User Defined Command could be written to facilitate initiating EDIT/3000 as described 
above. For example: 

MYEDIT 

OPTION LIST 

RUN EDITOR.PUB.SYS; PARM=16 

See Section IX of the MPE Commands Reference Manual for an explanation of creating and using User 
Defined Commands. 

Each procedure includes the following four parameters, in the order shown: STRING, LENGTH, USER- 
SPACE, PROCSPACE. For example, written in SPL/3000, the header for such a procedure is: 

LOGICAL PROCEDURE KPS220Vprocname 

(STRING,LENGTH,USERSPACE,PROCSPACE) 
BYTE ARRAY STRING; 
INTEGER LENGTH; 
ARRAY USERSPACE; 
ARRAY PROCSPACE; 

where procname is either USERINIT, USERCOMMAND, or USERADD. 
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The parameters are defined as follows (additional requirements are given in the descriptions of each 
procedure) : 

STRING is a byte array containing the characters of one line, which may consist of up to 255 characters. 

LENGTH is an integer value specifying the number of characters in the current line being passed by 
STRING. 

USERSPACE is a 10 word array that is available for user "global" storage. This space is shared with the 
other user procedures. The first two words contain the EDIT/ 3 000 command input and output MPE 
file numbers, in that order. These file numbers could, for example, be used for diagnostic messages by 
the three procedures. The rest of the array is initialized to binary zeros when EDIT/3000 is invoked 
and will not be changed by EDIT/ 3000 between calls to the procedures. 

PROCSPACE is a 20 word array maintained by EDIT/3000 for the procedure's use. It is shared with 
the EDIT/3000 PROCEDURE command (see the description of the array SPACE, along with the 
PROCEDURE command, in paragraph 4-31) and is initialized to binary zeros. 

Descriptions of each procedure follow. I 

6-2. HP32201'USERINIT PROCEDURE. USERINIT will allow for a user written procedure to 

return a string which is executed as the first command(s) when an EDIT/3000 process is begun. SET com- 
mands (see Section III), for example, could be specified. In addition, the value returned (logical 0,l,2,or 3) 
determines if none, one, or both of the other two procedures (USERCOMMAND and USERADD) are to be 
invoked. 

This procedure is called each time the user has initiated an EDIT/3000 process by using the MPE command 

:RUN EDITOR.PUB.SYS; PARM=16 

The parameters for this procedure are as described in paragraph 6-1. STRING contains the characters of a 
command line, which may consist of only one command or of multiple commands separated by semicolons. 
The first character of the array STRING must be a semicolon and the array must be terminated by an ASCII 
carriage return (%15). 

A logical 3 (or TRUE) should be returned if both USERCOMMAND and USERADD are to be invoked. 
Returning logical 2 results in invoking only USERADD, while returning a logical 1 invokes only USER- 
COMMAND. If logical (or FALSE) is returned, calls to these other procedures will not be executed. It 
is the procedure's responsibility to inform the user of which commands are executed when EDIT/3000 is 
begun and whether the other procedures are invoked or not. 

See the example in paragraph 6-5. 

6-3. HP32201 'USERCOMMAND PROCEDURE. USERCOMMAND will aUow for a user written pro- 

cedure to scan EDIT/3000 commands after they are entered. For example, the procedure could screen the 
syntax of EDIT/3000 commands, or could interpret a user defined command as a standard EDIT/3000 
command. 

This procedure is invoked if logical 1 or 3 (or TRUE) is returned from USERINIT when an EDIT/3000 
process is initiated. If this is the case, then USERCOMMAND is called each time the user has entered an 
EDIT/3000 command line, which may consist of a single command or of multiple commands separated by 
semicolons. 
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The parameters for this procedure are as described in paragraph 6-1, As for USERINIT, STRING contains 
the characters of a command line. If the user has continued the command line with an ampersand (&), then 
the procedure received the whole input in the STRING array; that is, line continuation has been processed. 
In addition, if Z:: has been entered (see the Z::= command explained in Section III), then it is replaced by 
the string value of Z::. The array is terminated by an ASCII carriage return (%15). Note that if the user de- 
fined procedure changes the length of the command line, then it must also change the value of LENGTH 
accordingly and must insure that the terminating carriage return is still effective. 

If the procedure returns the value FALSE, the command line will be rejected and the user will be prompted 
with a slash (/) to reenter the line. It is the procedure's responsibility to inform the user that the input was 
not accepted and to issue any diagnostic messages. The command line is accepted if TRUE is returned. 

See the example in paragraph 6-5. 

6-4. HP32201'USERADD PROCEDURE. USER ADD will allow for a user written procedure to scan 

lines entered using the EDIT/3000 ADD command (see Section III for a description of the ADD command). 

This procedure is invoked if logical 2 or 3 (or TRUE) has been returned from USERINIT when an EDIT/ 
3000 process is initiated. If this is the case, then USERADD is called after the final carriage return (that is, 
one which does not follow an ampersand continuation character) each time aline of text has been entered 
using the ADD command.) 

The parameters for this procedure are as described in paragraph 6-1. STRING contains the characters of a 
line entered in the ADD mode. As for USERCOMMAND, line continuation (&) has been processed. If tabs 
are in use, they are not yet expanded into spaces; that is, the tab character has not been replaced by spaces 
in the STRING array. Note that if the user written procedure changes the length of the line, then it must 
also change the value of LENGTH accordingly. 

If FALSE is returned, the line of text will be rejected and the user will be prompted with the line number 
unless ADDQ was used. It is the procedure's responsibility to inform the user that the input was not accepted 
and to issue any diagnostic messages. The line is accepted if TRUE is returned. 

See the example in paragraph 6-5. 
6-5. EXAMPLES 

Three user written SPL/3000 procedures, which satisfy the requirements described above, are shown here. 
They are each compiled into a User Subprogram Library named USERUSL by using the MPE/3000 SPL 
command. (See the MPE Commands Reference Manual for a discussion of the SPL command.) 

IdPL IMIT.USERUSI. 

PAGE 0001 HP32lOOA.06,O5 14W1 (C) MEHLf.TT-PUCKAFD COMPANY 1976 



00001000 


00000 





SCnNTROt SUHPPOCPAM 


00002000 


00000 




SCONTROL SEC^ENTsINIT-SEC 


00003000 


00000 




PECIN 


00004000 


00000 




LOGICAL PPOCFDUPF. HP32201 MTSFRINTTf STpI>lC,L£N 
USFp5?ACF,PRncSP*CF)i 


00005000 


00000 




PtTE ARPATf STpTNGj 


00006000 


00000 




TNTt.CER I.F.M; 


00007000 


00000 




ARRAY USEP5PACF; 


00008000 


OQOQO 




ARPAY PROCSPACFj 


00009000 


00000 






00010000 


00000 




^fCIN 


ooouooo 


ooooo 




MOVE STPING:=";0insE8TNrT 1,0|| Of/S SHnpTf i 


00012000 


00032 




IF.ft'.-i'i: 


00013000 


00034 




STplNCtr.LMJ j=ti5; «rR>> 


00014000 


00031 




KP32201'U5EPIN]T:=TPUE; 


00015000 


00041 




FNP; 


00016000 


OOOOO 




ENn. 


PPIMAPY 


DB STOKAGF. 


=%0O0t SECONOABY PB STOPAGEs%00n0O 


NO. EPHOPSsflOOOj 


NO. WAPMINr.S = 0OO0 


PROCESSOR TIHE=0:OOrOO: FLAPSED TlHE=0:00i17 



a RHriHt: 
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ISPL CnMlk^lNDfUSEPUSL 

PACE 0001 HP32100A.06.05 (4M1 (C) HEWLFTT-PACKAPO COMPANY 1976 



OOOOIOOO 00000 

00007000 00000 

00003000 OOOOO 

00004000 OOOOO t 

00005000 OOOOO t 



00006000 
00007000 
00008000 
00009000 

oooioooo 

OOOllOOO 
00017000 
0O0J30O0 
00014000 
00015000 
00016000 
00017000 

oooiaooo 

00019000 
00020000 
00021000 
00022000 
O00230O0 
00024000 
00025000 
00026000 
00027000 
00028000 
00029000 
00030000 
00031000 
00032000 
00033000 



OOOOO 1 
OOOOO I 

OOOOO 1 

OOOOfl I 
OOOOO I 
OOOOO 
ftOOOf) 

noooo 

OOOOO 
OOOOO 
OOOOO 
00011 
00031 
0OO37 
00042 
00046 
00046 
00O46 
00046 
00046 
00046 
000^7 
00057 
00067 
00100 
00107 
00107 



OOOOO I 



PRrMAPlf DB STPftACF 
NO, EPPORS=O000r 
PROCESSOR TlMFBO;nO:01 J 



SCnNTPOL SUBPPrtCT'A" 
SCONTROL SEGMENTrCOHMAND'SEC 
REGIN 

LDCICAt PKHCFDURF Hp32201 -USERCOKHANDC STP ING , L 

EK,U5EP5PAre,pP0CSPACEl; 

BYTE APPAY STRISCJ 

TNTECEP TEK; 

ARRAY US(;PSPACR| 

ARPAY PPOCSPACE; 

BECIN 

T.OOICiL POINTER HOROPTP» 

LnriCAV flPPAY L(0:ioij 

BlfTfc: APPAY B(*)sLj 
TNTPINSIC PRINT. FhPlTEj 

HpT220t'l[S«'RCO»'MAND|«TPUF» 
MOVE ai=*USEPCnHMANO £NTFKFDI"J 

F^PiTt-(ust.Ri.rArEf !}jr.,-2n,03 r 
awnRnpTf<: = «STPTnciLsRCn : 
PRINT (WOPDPTP,-LFN#0); 
<< 

<< IMpI.r»'ENT THE CnMHAND "OUIT* 

<< CHAMGF "UUIT" Tf^ "KEEP" AND INSflfiT "jKNt)" AT THE ENP 

<< OF THF STPIKG 

>> 

IF STRINGs"OUIT" THEN 

BEGIN 

"OVE STRTN<T:i»KEEp*r 

MOVE STHING{r,tN3 !-";END'»; 

STPlNcfLrNr5LEN + 4)S = l3i «CP» 
ENDj 
END; 
FNH. 
=*000i 



< 



SErONDAPY RB STOPAGE'tOOOOO 
NO. WAPNTNRS=0O00 
FLRPSEn TIMEcO:00;26 
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tSPL ADD,US£RUSL 

PACE 0001 HP32100A.06,05 MWl (C) HEWLPTT-PACKAPrv COMPANY 1976 



00001100 DODDO G 

00002000 00000 

00003000 00000 

00004000 00000 1 



0000^000 
00006000 

000070DO 

Qoooeooo 

00009000 

oooioooo 
ooouooo 

00012000 
00013000 

ooouooo 

00015000 
00016000 
00017000 

ooouooo 

000)9000 
00020000 
0U031000 
00022000 
00023000 
00024000 
00025000 
00026000 
00027000 
00O2B000 
00029000 
00030000 
00031000 
00032000 
00033000 
00034000 
00035000 
00036000 
00037000 
O003SOO0 
00039000 
00040001} 
00041000 
00042000 
00043000 
00044000 
00045000 
00046000 
00047000 
0004BOOO 
00049000 
00050000 
00051000 
00052000 
00053000 
00054000 
00055000 
0005fi000 
00057000 
00058000 
00059000 



00010 1 
00000 1 
00000 1 
00000 t 

oonoo 1 

00000 
00000 
00000 
00000 
00000 
00000 
00000 

ooooo 

00000 

noooo 



ooono 7 



ooooo 2 

ooooo 2 

00021 2 

00037 2 

ooo-;s 2 

00050 9 

00054 2 

00054 2 

00054 2 

0a054 2 

00054 2 

00054 2 

noot.0 2 

00063 2 

00076 2 

00076 7 

00077 2 
00100 7 
00100 2 
00100 2 
nOlOl 2 
0010? 2 
noi03 2 
00103 2 
0O1O6 2 
00106 3 
00117 3 
00127 3 

00131 3 

00132 3 
00132 2 
00132 2 
00136 2 
00136 7 
00140 2 

00143 2 

00144 2 

00145 2 

oonoo 1 

PRIMAPY DB STOHACF: 
NO. ERPOHSsOOOOr 
PROCESSOR TlHTcOlO 



SCONTROL SUBPROGRAM 
SCPNTROL SF.GHENTaADD'SEG 

LOGICAL PHnCFDtlpF HP3220 t 'USFPADOC STRINC#LEN , U 

SEPSPACEjPPOCSPACEJi 

PVTE APPAY STBINCf 

IKTEGEB LEK; 

ARRAY USERSPACE; 

APPAY PRnCSPACFj 

LOGICAL PCTMEP WQPDPTP; 

LOGICAL ARPAY LCOMOIj 

BYTE ARPATf bt»l=T.l 

PYTE ARPAK 3P4CE5tO:9)j 

BYTE APPAY 1 K'PUT 1 : 255 ) J 

PYTE POINTER SPC'PTPi 

BYTE POINTER DrST'PTP; 

DEFINE IAD*CHAP5"*"lt 

DEFINE INDENTATinN=tO-nPD^5T'PTP-PSTRTNC) HOD lOjij 

FQt'ATt: CAPPIAGr'PtTUPH=l 3"; 

INTRINSIC PPINTrKWWiTEj 

HP 32201 'USFkAODjsTPUF; 

HOVE Pis-USEPAHD EK'TF.KFOJ") 

FWPlTLtuSEPSPArF.f n,L,-l6»0ji 

flKnpDPTP: = PSTHINCl.t,SPCl Jl 

PPTNT(WOPDPTR,-LFN^01; 

<< 

« StAHCH FOR •'S'--WHFN FOUWD, IN.'JEPT SPACES 

<< THE TEXT 15 TAbBED^ OVER TO THE KflAT COLUMN THAT IS 

<< A MULTIPLE OF T£IJ 

>> 

MOVF TNPUTI=STPTN(;,CLFH>; 

IMPUT(LFN) :=CAhRIAGE'PETUPNj 

MOVE SPACF.5: = " "; 

TnSi=95TPTNC; 
TOSisaiNPUT; 

tar: 

HOVE *:=• WHILE AN,0| 
*5flC'PTP!=TnSj 

fintST'PTR;=T05; 

IF .';PC'PTP=TAB'CHAR THEN 
BKGIN 

MOVF PEST'PTP:=SPACFS* tINDEMT4TION),2j 

LEMI=LEN*TNDENTATT0N*1 J 

TGS:=asPC'PTR*ll 

GO TO lABr 
ENDJ 

IF .iHC'PTPsCAPRIAGE'KETORN THf;N RCTUpNr 

DFST'PtPlsSRC'PTRr 
TOS:=aDFST'PTP+I ; 
Tns:=*»SRC'PTR+i r 
en TO TAB; 

FNn,* 
s%ono 



OtOlj 



SErOfJDAPY PH 5TOPACE«%nonOO 

N0« WAPhnHGS = onCiO 
ELAPSED TIMESO:00;16 
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Next, the Segmenter subsystem is accessed with the MPE/3000 SEGMENTER command. The USL Segmen- 
ter command is used to identify the USL file (USERUSL) which contains the function procedures to be 
added to the SL file, and the BUILDSL command is used to create an SL file with 20 records maximum 
and one disc extent. The segment containing each procedure is added to the SL file using the ADDSL com- 
mand, and by specifying the segment name for each procedure (see the $CONTROL SEGMENT= statement 
at the beginning of each SPL/3000 procedure listed above). The LISTSL command shows the segments 
added and the names of entry points for each segment (in this case, there is only one entry point for each). 
Assuming we are logged-on in the PUB group of the SCC account, note that the SL file name is SL.PUB.SCC, 
so that the segmented library of the PUB group in the SCC account will have to be searched for these proce- 
dures. EXIT is typed to terminate Segmenter operation. (See the MPE Segmenter Reference Manual for a 
more detailed explanation of the Segmenter and segmented libraries). 

Note that if the procedures are to be installed in the system SL, all three procedures should be put in the 
same segment, if possible, rather than in separate segments — as was done here. This saves space in the CST 
(Code Segment Table), which is shared by everyone on the system and keeps track of the segments in the 
system SL. 



t 



ISGGMEHTCR 

HP3205OA.OO.00 SEGMENTER/ JOOO (C) HFWLETT-PACKAPD C&, 1978 

*UftL U5EPU5L 

-BUILDSL 5L.?0,1 

•ADDSL INIT'SEG 

*ADDSL CHMHAND'SEG 

-ADDSL ADD'SFG 

-LISTSL 

5L FILE SL.PUB.SCC 

SEGMENT INIT'SEG LENGTH 44 

ENTPTf POINTS CHECK CAL STT AdP 
HP3220t'US£PINI C 1 



EXTERNALS CHECK 


STT SEC 




100 






SEGMENT I COMMAND'SEG 


LENGTH 


114 


ENTPlf POINTS CHECK 
HP3220fU5EPCOH 


CAL STT 
C I 


ADP 



EXTERNALS CHECK 
PRINT 
FHRITE 


STT SEC 
3 ? 
2 ? 




010 






SECHENT 7 ADD'SeG 


LENGTH 


154 


ENTRY POINTS CHECK 
HP3220l'USEtlAOD 


CAL STT 
C I 


ADP 



EXTERNALS CHECK 
PRINT 
FHRITE 


STT SEG 
3 7 
2 7 




001 






USED 3000 


AVAILABLE 


•EXIT 






END OF SUBSYSTEM 







2000 
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EDIT/3000 is invoked using the MPE RUN command. The PARM=16 parameter is used since the segmented 
libraries need to be searched. The USERINIT procedure is called, which prints out "USERINIT 1.0" and 
'7S SHORT" and executes the EDIT/3000 command S[ET] SHORT. Since this procedure returns TRUE 
(see the listing above), both of the other two procedures will be invoked. 

The T[EXT] AFILE command {in response to EDIT/3000's slash prompt) causes the USERCOMMAND 
procedure to be called, since it is called whenever a command line has been entered. The USERCOMMAND 
procedure prints out "USERCOMMAND ENTERED!" and repeats the command line. 

When the ADD command is used and a line of text is entered, the USERADD procedure is called which 
prints out "USERADD ENTERED!" and repeats the line. The line is accepted since USERADD returns the 
value TRUE (see the listing above). When AFILE is listed, we see that USERADD has also interpreted each 
asterisk (*) in a line of text as a tab. 

The QUIT command is interpreted by the USERCOMMAND procedure as the standard EDIT/3000 com- 
mands K[EEP] ',END. In this case, the filename is defaulted; note that it is printed out below the command. 
(The QUIT command also allows for a filename to be specified if desired; see the listing of the USERCOM- 
MAND procedure.) 



:RUN EDITOR, PUB, SyS;PI(RMsi6 

HP32201A.7.04 EDIT/3000 WED, JAN 17, 1979, 2:03 PM 

(C) HEWLETT-PACKARD CO. 197B 

USEPINIT 1,0 

/S SHORT 

/T IflLt 

USEPCOMMANO tNTEHFOl 

T AFILE 

/Liai ALL 

USERCOMMAND tNTEREDl 

LIST ALL 

1 THIS IS LTNF riNF. 

2 THIS IS LINE TMO, 
/ADD 

USERCOMMAND ENTEKFO: 
ADD 

3 ♦COLUMN TEN, LINE THREE. 
USERADD ENTFRFDI 

•COLUMN TEN, LINE THREE, 

4 ABC»123 
USERADD ENTRRKDl 
ABC«t33 

5 // 

/LIST ALL 

USERCOMMAND ENTERED: 
LIST ALL 

1 THIS 15 LINE OMF. 

2 THIS IS LINE TWO, 

3 COLUMN TEH, LIKE THREE, 

4 ABC 123 
/QUIT 

USERCOMMAND ENTERED! 

QUIT 

AFILK 

PURGE OLD?r 

END DF PROGRAM 
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ASCII CHARACTER SET 



ASCII 


First Character 


Second Character 


Character 


Octal Equivalent 


Octal Equivalent 


A 


040400 


000101 


B 


041000 


000102 


C 


041400 


000103 


D 


042000 


000104 


E 


042400 


000105 


F 


043000 


000106 


G 


043400 


000107 


H 


044000 


000110 


1 


044400 


0001 1 1 


J 


045000 


000112 


K 


045400 


000113 


L 


046000 


000114 


M 


046400 


000115 


N 


047000 


000116 





047400 


000117 


P 


050000 


000120 


Q 


050400 


000121 


R 


051000 


000122 


S 


051400 


000123 


T 


052000 


0001 24 


U 


052400 


000125 


V 


053000 


000126 


w 


053400 


000127 


X 


054000 


000130 


Y 


054400 


000131 


z 


055000 


000132 


a 


060400 


000141 


b 


061000 


000142 


c 


061400 


000143 


d 


062000 


000144 


e 


062400 


000145 


f 


063000 


000146 


9 


063400 


000147 


h 


064000 


000150 


i 


064400 


000151 


i 


065000 


000152 


k 


065400 


000153 


1 


066000 


000154 


m 


066400 


000155 


n 


067000 


000156 


o 


067400 


000157 


P 


070000 


000160 


q 


070400 


000161 


r 


071000 


000162 


5 


071400 


000163 


t 


072000 


000164 


U 


072400 


000165 


V 


073000 


000166 


w 


073400 


000167 


X 


074000 


000170 


y 


074400 


000171 


z 


075000 


000172 





030000 


000060 


1 


030400 


000061 


2 


031000 


000062 


3 


031400 


000063 


4 


032000 


000064 


5 


032400 


000065 


6 


033000 


000066 


7 


033400 


000067 


8 


034000 


000070 


9 


034400 


000071 


NUL 


OOOOOO 


OOOOOO 


SOH 


000400 


000001 


STX 


001000 


000002 


ETX 


001400 


000003 


EOT 


002000 


000004 


ENQ 


002400 


000005 
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ASCII 


Fir«t Character 


Sftcond Character 


Character 


Octal Equivalent 


Octal Equivalent 


ACK 


003000 


000006 


BEL 


003400 


000007 


es 


004000 


000010 


HT 


004400 


00001 1 


LF 


005000 


000012 


VT 


005400 


000013 


FF 


006000 


000014 


CR 


006400 


000015 


SO 


007000 


000016 


SI 


007400 


000017 


OLE 


010000 


000020 


001 


010400 


000021 


DC2 


011000 


000022 


DC3 


011400 


000023 


DC4 


012000 


000024 


NAK 


012400 


000025 


SYN 


013000 


000026 


ETB 


013400 


000027 


CAN 


014000 


000030 


EM 


014400 


000031 


SUB 


015000 


000032 


ESC 


015400 


000033 


FS 


016000 


000034 


GS 


016400 


000035 


RS 


017000 


000036 


US 


017400 


000037 


SPACE 


020000 


000040 


f 


020400 


000041 


" 


021000 


000042 


# 


021400 


000043 


$ 


022000 


000044 


% 


022400 


000045 


& 


023000 


000046 


' 


023400 


000047 


{ 


024000 


000050 


) 


024400 


000051 


• 


025000 


000052 


+ 


025400 


000053 


, 


026000 


000054 


- 


026400 


000055 




027000 


000056 


/ 


027400 


000057 


; 


035000 


000072 


; 


035400 


000073 


< 


036000 


000074 


K 


036400 


000075 


> 


037000 


000076 


7 


037400 


000077 


@ 


040000 


0001 00 


[ 


065400 


000133 


\ 


056000 


000134 


1 


056400 


000135 


A 


057000 


000136 


- 


057400 


000137 


(' 


060000 


000140 


075400 


000173 


1 


076000 


000174 


} 


076400 


0001 75 




077000 


000176 


DEL 


077400 


000177 



First Character 



Second Character 



r 



J^ 



V 



A. 



^ 



1 












1 












1 










■ 




ll 


1 


2 


3 


4|5 


6 


7|S|S 


10 


11 


12 


.13 


14 


15 
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COMMAND LANGUAGE 



APPENDIX 
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Table B-1 allows you to determine the precise syntax requirements of a command, or to quickly refresh your 
knowledge of the command language. The table is helpful to have, particularly during an interactive session, 
as a general reference tool. If further clarification is needed, the page number of a complete explanation of 
each command is provided. 
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Table B-1. Command Language Reference Chart 




Command 


Syntax 


Use 


Example 


Remarks 


Page 
Refer- 
ence 


ADD 


ADD[Q] [linenumber] 
(.HOLDIQ] (.NOW]] 


To enter lines of text 
into the WORK file 
from an input file or 
from The HOLD file. 


ADD 60, HOLD 


The contents of the HOLD file 
are entered into the WORK file 
beginning with the line number 60. 


3-6 


BEGIN 


BEGiN[Q] 


Used as the first 
expression in a 
matching BEG IN- 
ENDpair. 


WHILE This is a blocked set of com- 
FINDQ"this"j+3l rtiands within a BEGIN-END 

BEGINQ pair. 

F1NDQ"program"/M+20l 

LIST* 

END 


4-7 


CHANGE 


CHANGE[Q] 

\ oldstring \ 
\ startcofumn[ Atartco/umn] { 
TO nemtring 
[\Nrangefi$t] 


To replace old text tA^ith 
new text. 


CHANGE "RECORD" 
TO "LINE" IN 40/70 


All occurrences of RECORD in 
lines 40 through 70 will be 
changed to LINE. 


3-10 


COPY 


CO?y[Q] range 
TO linenumber 
[BY increment] 


To copy text from 
one location Into 
another in the 
WORKIile. 


COPY 2/2.15 to 8.01 
BY .01 


Lines 2 through 2.15 
will be copied to begin at 
line 8.01 with lines numbered 
in increments of ,01. 


3-14 


DELETE 


DELETE[Q] [rangefist] 


To delete characters and 
lines from the WORK 
file. 


DELETE 50/75, 

150(3)/155(71 


Lines 50 through 75 and charac- 
ters in thfl range beginning with 
the third column in line 150 
through the seventh column in 
line 155 will be deleted. 


3-17 


END 


END 


To terminate execution 
of EDIT/3000 or, when 
used with a matching 
BEGIN command, to 
terminate an iterative 
operation. 


END 


Control is returned to MPE/ 
3000. 


3-20 


FjND 


FIND[Q} 

[_range_ 


To locate a point in the 
WORK file. 


FIND 'PROGRAM" 


The pointer will move to the 
next occurrence of the string 
PROGRAM. 


3-21 


GATHER 


GATHER [Q] range 
TO linenumber 
[BY increment] 


To move portions of 
text from one location 
to another in the WORK 
file and renumber the 
lines. 


GATHER 50/55 TO 
5.1 BY .1 


Lines 50 through 55 will be 
moved to begin at line 5.1 and 
will be renumbered in incre- 
ments of .1. 


3-23 


HOLD 


HOLDIQ] [range] [,APPEND] 


To copy text from the 
WORK file into the 
HOLD file. 


HOLD 100/150, 
APPEND 


Lines 100 through 1 50 are 
copied into the HOLD file and 
are appended to tha text that 
already exists in the HOLD file. 


3-27 


INSERT 


INSERT[Q] position 
[BY increment] 
t,HOLD[a] E,NOW]] 


To insert text into the 
WORK file from an 

input file or the HOLD 

file. 


INSERT 25(4) 


Line 25 is printed with the 
pointer indicated directly under 
column 4. Any text may then 
be typed in. The remainder of 
line 25 is saved and printed 
following the insertion. 
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JOIN 


JOINtQ] filename 
(linenumber [/linenumber] ) 
(^trecnum/#recnum) 
(TO linenumber] 
[BY increment] 


To add all or part of a 
JOIN file to the WORK 
file, 


JOINEDtT02T0 
1000 BY .1 


The text in EDIT02 is added to 
the WORK file beginning at line 
1000. Lines are numbered in 
increments of .1 . 
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Refer- 


Command 


Syntax 


Usa 


Example 


Remarks 


ence 


KEEP 


KEEP [(QI fife name 


To save all or part of 


KEEP EDIT02 


The contents of the WORK file 


3-39 




[{range)] 


the WORK file in a 




are saved in EDIT02,a user file. 






[,UNNUMBERED]J 


user file. 




and the line numbers are stored 
in ASCII format at the front or 
rear of each line. 




LIST 


LiSTfQ] [ran^\ 


To print out any portion 


LIST ALL UNNUM- 


The contents of the WORK file 


3-47 




[.UNNIUMBEREDII 


or all of the WORK file. 


BERED. OFFLINE 


are printed on the file printer 






[,OFFLINE] 






or at the device specified in 






[.TRANSLATE] 






the system log-on command. 






[,N0TEXTI 






Line numbers are not 
printed. 




MODIFY 


MODIFYIQI range list 


To modify text in the 
WORK file using three 
operations: delete ID), 
insert (l),and 
replace (R). 


MODIFY 50/100 


Lines 50 through 100 are 
printed line by line to al low a 
modification templet to be 
entered for each line in the 
range. 
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NOT 


NOT 


Causes setting of FLAG 


WHILE 


Occurrences of "this" that are 


4-12 






to be reversed after the 


FINDa"this"(+3) 


not followed by "program" 








next following express- 


BEGINQ 


are listed. 








sion is interpreted. 


NOT 












FINDQ"program'r(+20) 










LIST* 












END 






OR 


OR 


Resets F LAG to true 


BEGINQ 


If "this" is found within 40 


4-T6 






If it is false, or skips OR 


FINDQ"this"r(+40| 


nonblank characters of the 








command and com- 


OR 


pointer, the second FIND 








nrvand following if 


FINDQ"program'7*{+20) 


command is skipped over. If 








FLAG is true. 


END 


"this" is not found, the FLAG 
is set to true, and the second 
FIND is executed. 




PROCE- 


PROCEDURE 


Calls logical procedure 


PROCEDURE 


Logicei procedure CARDTEST 
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DURE 




'g' 




stored in a library 


CARDTEST. 


is called from the group library. 






[pname. 


P 
_S_ 


{range list] J 


outside the subsystem. 


G, 100/300 


Records 100 through 300 of the 
WORK file are affected by the 












procedure, 




Q 


CX character string 


To print a message 


"HELLO. PLEASE 


Whan this command is exe- 


3-54 






at the terminal. 


ENTER YOUR 
IDENTITY CODE." 


cuted, the delimited message 
will be printed at the terminal. 




REPLACE 


flEPLACE[a] rangefist 


To replace lines in the 


REPLACE 10/20 


Each line in the range from 10 


3-55 




(.HOLD[Q1E,NOW]] 


WORK file. 




through 20 is listed followed 
by the line number to allow 
you to enter a text replace- 
ment. 
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Refer- 


Command 


Syntax 


Use 


FxampJe 


Remarics 


ence 


SET 


SBT[FH0MHin6number] 


To alter options that are 


SET FROM=100 


Lines in the WORK file will be- 


3^9 




[,DBLT A=incremsnt] 


normally set by the sub- 


DELTA=10. QUIET, 


gin with line number 100 and 






[.LBfT=cofnum] 


system and that govern 


SHORT 


win be numbered in incre- 






UR\GHJ=cafnum] 


editing operations. 




ments of 10. The position of the 






[.LBNGTH=co/num\ 






pointer will not be displayed 








A QUIET 
DISPLAY 


_ 


Note: Default conditions are shown underlined. 


each time a location in the WORK 
file is found, and comnnands 
that take "Q" operate as if Q had 




\\ SHORT r 












been specified. Commands can be 








"J BATCH}" 
POLL \ 








entered using only their initial 














character. Otherwise, the first 






[,DEPTH=///n/f] 






and last column position read in 






[J\MB=tfmit] 






a line of the WORK file will be 1 






[^IZE=//m/f] 






and 72, respectively. 








front/" 

-' REAP f_ 


























"(FIXED r 

.-{variable ■_ 
























t,F0RMAT-{^^^^J;^j7 












1 TABS [= (colnum{,coinum 


•■•"11 










'iNOTABS 


1 










[,TABCHAR[=Jfr>/7ff]l 










TEXT 


TEXT [fiie name 


To copy contents of a 


TEXT EDIT02 


Contents of EDIT02 are copied 


3-67 




Wine number/line numbehl 
/ (4trecnum/4frecnum} ) 


user file into the WORK 




into the WORK file and num- 






file to be edited. 




bered using the line numbers 






■.UNNUMBERED] 






stored In the front or rear bytes 
of each line. 




USE 


\JSE[fHename] 


To instruct EDIT/ 
3000 to read com- 
mands from a user 
file but to send mes- 
sages to and, normally, 
to expect text from 
the terminal. 


USE EDFIL 


EDIT/3000 will go to the be- 
ginning of EOF 1 L and execute 
commands from that file until 
it finds end-of-file mark. 
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VERIFY 


^^""'^^liopLiJ. 


To obtain a reminder 


VERIFY DELTA, 


The values set up for DELTA 


3-79 




of the values of 


FROM 


and FROM when EDiT/3000 








options declared in 




was initialized are listed. 








the SET comnnand. 








WHILE 


WHILEfFLAG] 


Causes EDIT/3000 to 


WHILE 


Each occurrence of "this" follow- 


4-2 






iterate the next two 


FIND "this" 


ing the pointer is found and listed 








edit expressions (or 


LIST* 


untit the end of the WORK file is 








one, if FLAG is 




found before another "this" is 








declared) until the 




found. The FLAG is then set to 








first one fells. 




false. 




XPLAIN 


XPLAINQtrj"''"'''''}! 


To obtain an expla- 


XPLAIN A.S 


Explanations of the ADD and 


3-81 




nation of the 




SET commands will be printed 






I,OFFLINE] 


comma r>ds. 




at the terminal. 




YES 


YES 


Sets the FLAG to 
true 






4-20 


Z; : = 


Z : := object record 


To assign the value of 


Z::- 


The string "DOUBLE 


3^3 






the character siring 


"DOUBLE PRECISION" 


PRECISION" will be substituted 




I 




Z ::=. 




for Z : :> whenever Z : : occurs 
in a command outside of a 
string. 





i 



B-4 





Table B-1. 


Command Language Reference Chart (Continued) 




1 


Command 


Syntax 
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ence 




:MPE command 


To enter system commands :PURGE AFI LE The MPE PURGE 
from within EDIT/3000 command is executed 


3-86 
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WORK FILE RECOVERY 



APPENDIX 



EDIT/3000 creates a WORK file whenever an ADD, TEXT, or JOIN command is entered. This WORK file is a 
permanent file and is named by EDIT/3000 as follows: 



Kdddhhmm 



L 




minute 



hour of the day 



Julian day within year 



Note: EDIT/3000 logic prevents duplicate names within a group. 

To recover a WORK file (for example, after a system crash), proceed as follows: 

1. Enter an MPE/3000 :LISTF command to determine the K number under which the WORK file was saved 
by EDIT/3000. 

2. Access EDIT/3000 and enter these commands: 

/TEXT Kdddhhmm 

/KEEP filename (any new file name) 

/TEXT filename 



C-1 



Absolute column position, 3-4 

Absolute record position. 3-4 

Accessing MPE/3000, 3-86 

Account password, 2-2 

acctname, 2-2 

ADD command, 3-6 

- ADDSL command, 4-26, 6-6 

Ampersand, 2-12 

Ampersand, use of, 3-53 

acctpass^ 2-2 

APPEND, 3-28 

ASCII character set, A-1 

Asterisk, 3-3 



BASICENTRY entry point to EDIT/3000,2-13 
Batch 

initiating a batch job, 2-4 

running EDIT/3000 in batch mode, 2-7 

SET BATCH command, 3-59 

terminating a batch job, 2-6 
BEGIN command, 4-8 
Blank characters, 3-2 
BREAK, 2-9, 2-10 
BS, 2-3, 2-4 

- BUILDSL command, 4-26, 6-6 
;BYE command, 2-3 



Card reader, using as an input device, 2-7 

CHANGE conunand, 3-10 

Character position, 3-5 

COBOL, 3-60 

colnum, 3-3 

Colon (:) command, 3-86 

Column, 3-2 

Column position 3-4 

Commands 

ADD, 3-6 

-ADDSL, 4-26, 6-6 

BEGIN, 4-8 

-BUILDSL, 4-26, 6-6 

:BYE, 2-3 

CHANGE, 3-10 

colon (:), 3-86 

COPY , 3-14 

defmition of terms, 3-1 

DELETE, 3-17 

descriptions, 3-2 

:EDITOR, 2-6 

END, 3-20 

:EOJ, 2-6 

:FILE, 3-49, 2-13 

FIND, 3-21 

:FORTRAN, 4-26 

GATHER, 3-23 

;HELLO, 2-1 

HOLD, 3-27 



INSERT, 3-29 

:JOB, 24 

JOIN, 3-35 

KEEP, 3-39 

language, B-2 

LIST. 3-47 

-LISTSL, 4-29. 6-6 

MODIFY, 3-51 

multiple, 2-12 

NOT, 4-12 

optional parameters, 3-2 

OR, 4-16 

PROCEDURE, 4-24 

Q, 3-54 

REPLACE, 3-55 

required parameters, 3-2 

:RUN, 2-13, 6-1 

SET, 3-59 

sunmiary, 1-4 

TEXT, 3-67 

USE, 3-75 

-USL, 4-26, 6-6 

VERIFY, 3-79 

WHILE, 4-2 

XPLAIN, 3-81 

YES, 4-20 

Z::=, 3-83 

:, 3-86 
Command string maximum length, 2-12 
Command summary, 1-4 
Conunent in command strings, 2-12, 3-75 
Comments in USE file, 3-75 
Continuing a command, 2-12 
CONTROL H, 2-9, 3-64 
CONTROL I, 3-62 
Controls, 2-9, 2-11 
CONTROL X, 2-9 
CONTROL Y, 2-11, 3-13, 3-85 
COPY command, 3-14 
Copying a TEXT file from cards, 3-72 
cpusecst 2-3, 2-4 

Creating a two-column format, 3-5 
CS, 2-3, 2-4 
customizing EDIT/3000, 6-1 



Data protection, 1-2 

Default EDIT/3000 operating conditions, 3-60 

Default size of WORK file, 1-2 

Definition of terms, 3-1 

DELETE command, 3-17 

Delimiters, 3-2 

DELTA, 3-59 

DEPTH, 3-60 

device^ 2-5 

DISPLAY, 3-61 

DS, 2-3, 2-4 



I-l 



Editing modes, 1-2 
:EDITOR command, 2-6 
EDIT/3000 

advanced commands, 4-1 

commands.(see ComRiands) 

command summary, 1^ 

default operating conditions, 3-60 

description, 1-1 

editing modes, 1-2 

error messages, 5:2 ; 

features, 1-1 

file definitions, 1-2 

pointer, 3-3 

special controls, 2-9 
EDIT/3000 special entry pointy 2-13 
EDITIN file, 1-2 
EDITOUT file, 1-2 
EDTLIST file, 349 
END command, 3-20 
:EOJ command, 2-6 
Error messages, 5-2 ; 

Error recovery procedures, 5-2 
ES, 2-3, 24 
Escape 1, 3-64 
Extra data segments, 3-69 



Hard errors, 5-1 
:HELLO command, 2-1 
HIPRI, 2-3, 2-5 
HOLD command, 3-27 
HOLD file, 1-3 
Horizontal tab, 3-62 



incremenU 3-3 
Initiating a batch job, 2-4 
Initiating an interactive session, 2-1 
INPUT file, 1-2 
inputpriority, 2-3,2-4 
INSERT command, 3-29 
integer, 3-3 
Interactive 

initiating a session, 2-1 

running EDIT/3000 in an interactive session, 2-6 

terminating a session, 2-3 



:JOB command, 24 
Jobname, 2-4 
JOIN command, 3-35 
JOIN file, 1-3 



{ 



:FILE command, 3-49 
File definitions, 1-2 
FUes 

definitions, 1-2 

:FILE command, 3-49 

HOLD file, 1-3 

INPUT file, 1-2 

JOIN file, 1-3 

OUTPUT file, 1-2 

saving, 3-39 

TEXT file, 1-3 

USE file, 1-3 

WORK file, 1-2 

WORK file size, 1-2, 3-62 

WORK file rec6very,:€il ' ^ r . ■ 
filename, 'Z-3 ^ '" ■ - ■ " " '^ 

FIND command, 3-21 
FIXED, 3-60 

Fixed-length records, 3-60 
FLAG, 4-2 
FORMAT, 3-60 
:FORTRAN command, 4-26 - 
FORTRAN/3000 sample procedure, 4*26 
FROM, 3-61 • 
FRONT, 3-61 ' 



KEEP command, 3-39 
Keeping an unnumbered file, 342 
Keeping the WORK file contents on a card 
punch device, 345 



LEFT, 3-61 
LENGTH, 3-61 
Library 

group, 4-24 

public, 4-24 

segmented, 4-24 ^ . ' i^ : : 

system, 4-24 

user subprogram, 4-26 
limit, 3-3 
Line, 3-1 
Line feed, 2-9 
Line length, 3-61 
Line number intervals, 3-60 
linenumber, 3-3 
Line printer listings, 3-49 
LIST command, 3-47 

Listing the WORK file contents offline,;349 
-LISTSL cdntimand, 4-26 .-^ x> ^ 

Logical recoi'd numbers, 3-5 r - v 
LONG, 3-61 



GATHER command, 3-23 
grouppass, 2-2 
Group library, 4-24 
groupname, 2-2 
Group password, 2-2 



1-2 



Margins in the WORK file, 3-61 
Messages, 5-2 
Mode of operation, 1-2 
MODIFY command, 3-51 
MPE/3000 special controls, 2-9 



newstring, 3-3 

Nonprinting characters, 3-2, 3-5 

NOT command, 4-12 

NOTABS parameter, 3-59, 3-62 

NOTEXT, 3-47 

Null string, 3-2 

numcopies, 2-5 



Offline list file, 3-49 
oldstring, 3-3 
Optional parameters, 2-1 
OR command, 4-16 
OUTPUT file, 12 
outputpriority, 2-5 



Parameters 

descriptions, 3-3 

optional, 2-1 

required, 3-2 

summary, 3-88 
Password, 2-2 
Pointer, 3-3 
POLL, 3-59 
Position, 3-1 
position parameter, 3-4 
PROCEDURE command, 4-24 
Procedures 

HP32201'USERINIT, 6-2 

HP32201'USERCOMMAND, 6-2 

HP32201'USERADD, 6-3 
Prompt character, 2-7 
Public library, 4-24 

Q command, 3-54 
QUIET, 3-61 



Range, 3-1 

range parameter, 3-4 

Range list, 3-1 

rangelist parameter, 3-5 3 

Reading commands and text from a USE file, 3-77 

Heading commands f^om a USE file, ^-IB 

REAR. 3-61 

recnum, 3-5 

Record, 3-1 

Record size, 3-61 

Relative column position, 3-4 



,^ ■=■!.■. 



Renumbering the WORK file, 3-24 

REPLACE command, 3-55 

Required parameters, 2-1 ' *' / ' K 

RESTART, 2-5 

RIGHT, 3-61 'V ;_ .! .; 

Running EDIT/3000 in an interactive session, 2^ 

Running EDIT/3000 in batch mode, 2-7 -'• ' 



Saving files, 3-39 

Segmented library, 4-24, 6-1, 6-6 ' =' 

Segmenter, 4-26, 6-6 -i- 

Semicolon, 2-12 

Sequencing Information, 3-43 ^^ - '' ' 

sessionname, 2-1 ' 

SET BATCH, 3-59 ' , . ■:■ 

SET command, 3-59 ' ^ ' j'- ■ 

SET DELTA, 3-59 ^ i i ' .'.^ 

SET DEPTH, 3-60 , : .= -> 

SET DISPLAY, 3-61, 3-66 -'^ ' ^ J 

SET FIXED, 3-41, 3-60 ' !.-::■ . ■/ 

SET FORMAT, 3-60 '■ '■ - ^ '^'' 

SET FROM, 3-61 ' > ' * ■' 

SET FRONT, 3-61 ^ - ^ 

SET LEFT, 3-61 

SET LENGTH, 3-61 

SET LONG, 3-61 

SET POLL, 3-59 

SET QUIET. 3-61,3-66 

SET REAR. 3-61 ^ \ ^ ■'- i" i ^r 

SET RIGHT, 3-61 ?<: 

SET SHORT, 3-61 ::-l .■ o : 

SET SIZE, 3-62 i- . 

SET VARIABLE, 3-41, 3-60 

SHORT, 3-61 

SIZE, 3-62 

Soft errors, 5-1 -^ 

Special characters, 3-2 

Special controb 

EDIT/3000, 2-11 : 

MPE/3000, 2-9 
Special entry point to EDIT/3000, 2-1? 
Splitting a line into two lines, 3-32 .. j j ■ 
SPL/3000 sample procedure, 4-24, 6-l,:6'3 
startcolumn, 3-5 _, : ^ 

startline, 3-5 
stopcolumn, 3-5 
stopline, 3-5 
String, 3-2 

String delimiters, 3-2 . , 
stnn^ parameter, 3-5 < ■ , 

String searches, 3-21 
Summary of commands, 1-4 
System library, 4-24 



, •■*'.. li 



r lirv 1. 
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TABCHAR parameter, 3-59, 3-62, 3-79 
TABS parameter, 3-59, 3-62, 3-79 
Tabset (Escape 1), 3-64 
Terminal types, 2-2 
termtype, 2-2 

Terminating a batch job, 2^5 
Terminating an interactive session, 2-3 
Terminating EDIT/3000 

in batch mode; 2-6 

in Interactive mode, 2-3 
TEXT command, 3-67 
TEXT file, 1-3 
Two-column format, 3-58 



VARIABLE. 3-60 
Variable-length records, 3-60 
VERIFY command, 3-79 



WHILE command. 4-2 
WHILE loop, 3-85 
WORK file, 1-2 
WORK file recovery, C-1 
WORK file size 

default, 1-2 

specified with SET SIZE, 3-62 



UNNUMBERED, 3-42, 3-67. 3-70 
USE command, 3-75 
USE file, 1-3 
• Conunents, 3-75 
Use of aAipeisand, 3-53 
User Interface procedure, 6-1 
User labels, 3-46 
usemame, 2-2 
userpass; 2-2 
User password, 2-2 
User subpiogiam Ubzary, 4-26 
Using a card reo^pr as an input device, 2-7 
Using EDIT/3000 special controls semicolon 

and ampersand, 2-12 
USL, 4-26 
-USL command, 4-26 



XPLAIN command, 3-81 

YES command, 4-20 

Z::= command, 3-83 
: command, 3-86 



{ 
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